TDateTime bei über 24h abbruch

[Wolff68]

Wie wärs denn mit dem hier als Anzeige:

Code:

dauer := IntToStr(MyHoursBetween(ANow, AThen))
        +FormatDateTime(':nn:ss:zzz', Abs(AThen-ANow));

Damit kannst die Stoppuhr laufen lassen, bis der Int64 überläuft (bis dahin sind wir nichtmal mehr Staub!)

Statt MyHoursBetween kannst auch HoursBetween aus der Unit DateUtils nehmen. Aber ich binde dieses Monster ungern wegen einer Zeile Code ein.
Hier der Code:

Code:

function MyHoursBetween(ANow, AThen: TDateTime): INT64;
begin
  Result := Trunc(24*Abs(AThen-ANow));
end;

Ähmm. ANow steht hierbei für die StartZeit, und AThen für die Stop-Zeit.
(Wobei es hier ohnehin egal ist, wenn Du das vertauschst)