Zitat von
Delphi-Hilfe:
Der ganzzahlige Teil eines TDateTime-Wertes entspricht der Anzahl der Tage seit dem 30.12.1899. Der fraktionale Teil TDateTime-Wertes gibt die Tageszeit an.
Probier mal
Delphi-Quellcode:
ShowMessage(FormatDateTime('d:m:yyyy:h:n:s:z',Datumswert));
//...
Dann siehst Du, wieviel Zeit seit dem "Datumsbeginn" vergangen ist. Das ist völlig korrekt...
Die Delphi-Hilfe ist doch eine feine Sache, wenn man mal hineinschaut...
Laß Dir also nur die Stunden, Minuten, Sekunden und Millisekunden anzeigen und schon sieht das Ganze wesentlich besser aus:
Delphi-Quellcode:
ShowMessage(FormatDateTime('h:n:s:z',Datumswert));
//...
Damit kannst Du jetzt zwar "nur" noch bis 23 Stunden, 59 Minuten, 59 Sekunden und 999 Millisekunden messen - aber ich hoffe, daß Deine Routine nicht sooooooooo lange dauert.
