|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Zeitinterval in Millisekunden....
30. Mär 2010, 06:38
Delphi-Quellcode:
Function MilliSecsToTimeString (aMilliSecs : Cardinal) : String;
Var
h,m,s : Word;
Begin
s := (aMilliSecs div 1000) mod 60;
m := ((aMilliSecs div 1000) div 60) mod 60;
h := ((aMilliSecs div 1000) div 60) div 60;
Result := Format('%d:%.2d:%.2d',[h,m,s]);
End;
So irgendwie. Ungetestet.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|