Hi, vielleicht hilft Dir das hier ein wenig.
Delphi-Quellcode:
function Wochentag(Datum:TDateTime):string;
var
days: array[1..7] of string;
begin
days[1] := 'Sonntag';
days[2] := 'Montag';
days[3] := 'Dienstag';
days[4] := 'Mittwoch';
days[5] := 'Donnerstag';
days[6] := 'Freitag';
days[7] := 'Samstag';
Result:=(days[DayOfWeek(Datum)]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Wochentag(Date)); //gibt den Wochentag von Heute aus
end;
Gruß Lantis