Hi,
Wie kann ich denn in Delphi den Wochentag rausbekommen.
label1.caption := DateToStr(Now);
Das liefert ja nur 's Datum und Uhrzeit, aber wie heißt der Befehl oder die Rechnung für den Wochentag ??
Christian.
Hallo Christian,
Wie kann ich denn in Delphi den Wochentag rausbekommen.
label1.caption := DateToStr(Now);
{-----------------------------------------------------}
function _DateWochentag(Datum: TDateTime): string;
begin
try
case DayOfWeek(Datum) of
1: Result := ‚Sonntag‘;
2: Result := ‚Montag‘;
3: Result := ‚Dienstag‘;
4: Result := ‚Mittwoch‘;
5: Result := ‚Donnerstag‘;
6: Result := ‚Freitag‘;
7: Result := ‚Samstag‘;
end;
except
Result := ‚‘;
end;
end;
Gruss
Markus