Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11

Re: In Stunden, Minuten, und Sekunden umrechnen

  Alt 14. Okt 2003, 12:41
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;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat