DayOfWeek richtig ausgeben?

[Chris.R]

Hallo,

der Rückgabewert der Funktion DayOfWeek ist vom Typ Integer und nicht vom Typ TDateTime, daher ist die Funktion DateToStr nicht wirklich hilfreich.
Außerdem solltest du der Variable Date einen Wert zuweisen, bevor du DayOfWeek aufruftst, da Date sonst nicht initialisiert ist und
irgendeinen Wert enthält. Es sei denn, du willst die Funktion Date aus der Unit SysUtils benutzen, dann mußt du die Variable Date entfernen.

Versuchs doch mal so:

Delphi-Quellcode:

procedure TestButtonClick(Sender: TObject);
var
  ADate: TDateTime;
begin
  ADate := StrToDateTime('26.10.2009');
  ShowMessage(IntToStr(DayOfWeek(ADate)); // Sollte 2 (= Montag) zurückgeben
end;

Ciao Chris