Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: 2 Timestamps subtrahieren

  Alt 26. Dez 2009, 22:16
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
  Mit Zitat antworten Zitat