Nun ja es ist logischewrweise sehr schwer Millisekunden umzurechnen, wenn man nicht weiß, dass eien Sekunde 1000 Millisekunden hat eine Minute 60 Sekunden, eine Stunde 60 Minuten und ein tag 24 Stunden.
Delphi-Quellcode:
function FormatTime(t: Cardinal): string;
begin
t := t div 1000; // -> seconds
result := IntToStr(t mod 60);
case t mod 60 < 10 of
true: result := '0' + result;
end;
t := t div 60; //minutes
result := IntToStr(t mod 60) + ':' + result;
case t mod 60 < 10 of
true: result := '0' + result;
end;
t := t div 60; //hours
result := IntToStr(t mod 24) + ':' + result;
case t mod 60 < 10 of
true: result := '0' + result;
end;
end;