Tag anhand des Datums?

[Matze]

Zitat von Pseudemys Nelsoni:

Hm, wie kriege ich damit denn den Tag?

Hab das mal schnell hingeschrieben, klar DayOfWeek geht auch, aber mein Vorschlag ginge so:

Delphi-Quellcode:

function GetDayName(Date: TDateTime): string;
begin
  result := FormatDateTime('dddd', Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Date: TDateTime;
begin
  Date := StrToDateTime('30.04.1985');
  Caption := GetDayName(Date);
end;