Das Problem: Alle Funktionen die ich kenne nutzen Date(time) welche wohl nur einen Gültigkeitsbereich bis 30.12.1899 haben.
Dem widerspricht aber irgendwie die Existenz dieser Konstanten:
Delphi-Quellcode:
const
MinDateTime: TDateTime = -657434.0; { 01/01/0100 12:00:00.000 AM }
MaxDateTime: TDateTime = 2958465.99999; { 12/31/9999 11:59:59.999 PM }
Hast du es denn überhaupt mal damit versucht?
Alternativ könntest du auch mit
TTimeStamp
arbeiten:
Delphi-Quellcode:
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
Da es aber Umrechnungsroutinen gibt, kannst du auch gleich
TDateTime
verwenden:
Delphi-Quellcode:
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;