In Stunden, Minuten, und Sekunden umrechnen

[Luckie]

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;