2 Timestamps subtrahieren

[Matze]

Hallo,

deine Timestamp-Differenz müsste dir die Zeit in Sekunden liefern. Die folgende Funktion wandelt dir die Sekunden in die gewünschte Darstellung um (hoffe ich):

Delphi-Quellcode:

function FormatSeconds(seconds: Integer): string;
var
  h, m, s: Integer;
begin
  s := (seconds) mod 60;
  m := (seconds div 60) mod 60;
  h := (seconds div 3600) mod 24;

  Result := Format('%.2d:%.2d:%.2d', [h, m, s]);
end;

Aufruf:

ShowMessage(FormatSeconds(832)); Nur kommt dann 00:13:52 heraus.

Wenn du die führenden Nullen nicht haben möchtest, da du sie bei dir weg gelassen hast, dann entferne alle ".2" aus der Funktion.

Grüße, Matze