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)