Home » Tipps & Tricks » Object Pascal » Datumswerte » Wochentag zu einem Datum ermitteln
Wochentag zu einem Datum ermitteln
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;