Delphi dicas

Dia da semana por extenso

//coloque um DatetimePicker, button e um edit para testar



procedure Tform1.Button1Click(Sender: TObject);

var

X:string;

begin

        X:=(FORMATDATETIME('DDDD',datetimepicker1.Date));

        edit1.text:=x;

end;

por : Anselmo Duarte