Wochentag zu einem Datum ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Die Funktion DayOfWeek (Unit SysUtils) gibt für ein bestimmtes Datum den Wochentag zurück - als Integer-Zahl, wobei 1 dem Sonntag entspricht, 2 dem Montag usw. Außerdem gibt es das globale String-Array LongDayNames, das mit den Wochentagsnamen (entnommen aus der Systemsteuerung) gefüllt ist.
uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);
var wochentag: string;
datum: TDateTime;
begin
datum := date; //heute
wochentag := LongDayNames[DayOfWeek(datum)];
ShowMessage('Heute ist '+wochentag);
end;