Zitat von
SubData:
Date ist im übrigen eine eigene Funktion, die immer das aktuelle Datum zurückliefert ;>
Eigentlich ja, aber da ist ein
Bug in der VCL.
Das Property
Date ist von der Klasse TCommonCalendar geerbt.
Delphi-Quellcode:
function TCommonCalendar.GetDate: TDate;
begin
// der Cast-Operator macht eigentlich gar nichts
// insbesondere wird der Zeitanteil nicht abgetrennt
// das wird dann zum Problem, wenn
Result := TDate(FDateTime);
// richtig wäre gewesen
// die Funktion Int() gibt nur den ganzzahligen Anteil der Tage zurück
// Result := Int(FDateTime);
end;