Zeitmessung

[Thom]

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.

[loirad]

Es ist ja Türme von Hanoi (mit Rekursion) - das kann dauern