frage zu timetostr/TDateTime [beantwortet]

[marabu]

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