Guten Morgen.
Beim Arbeiten mit TDateTime muss stets geprüft werden, ob gerade ein Zeitpunkt oder ein Zeitintervall vorliegt. TimeToStr() arbeitet nur mit Zeitintervallen kleiner 1 Tag. Bei größeren Zeitintervallen hilft eine Funktion wie diese:
Delphi-Quellcode:
function DateTimeToStr2(dt: TDateTime; daySep: string): string;
begin
Result := Format('%d%s%s', [Trunc(dt), daySep, TimeToStr(dt)])
end;
Soviel zur Darstellung. GetTickCount() ist für Zeiträume bis knapp 50 Tage ausgelegt. Seit NT4 bzw XP gibt es SystemUpTime (als performance counter) oder auch
system tool.
Ostergrüße vom marabu