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
Guten Morgen! … Und falls wir uns heute nicht mehr sehen, Guten Tag, Guten Abend und Gute Nacht!