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;