Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#1

millisekunden -> minuten, sekunden [erledigt]

  Alt 27. Jan 2005, 17:31
hi ihr,

ich habe eine bestimmte anzahl an millisekunden. aus diesem wert möchte ich jetzt die minuten und sekunden errechnen (also von 85000 zu 01:25).
mein problem ist, dass die umrechnung möglichst schnell von statten gehen sollte. ich könnte mir das nur mit einer schleife vorstellen, die solange 60000 von den millisekunden abzieht und minuten+1 rechnet, bis es weniger als 60000 sind und danach das gleiche quasi mit sekunden. nur ist das relativ langsam

also habt ihr eine möglichst schnelle methode für mich?

dankeschön schön mal,
Aenogym

edit: man sollte auch richtig suchen.
so geht's:

Delphi-Quellcode:
function MSToMinutesSeconds(Millisecs: double): string;
const MilliSecondsPerDay : integer = 86400000;
var
   Time : TDateTime;
   Hour, Min, Sec, MSec : Word;
begin
   // In Tage umrechnen
   Time := MilliSecs/MilliSecondsPerday;
   // Splitten
   DecodeTime(Time, Hour, Min, Sec, mSec);
   // ausgeben
   result := Format('%2.2d:%2.2d', [Min, Sec]);
end;
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat