millisekunden -> minuten, sekunden [erledigt]

[Aenogym]

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;

[Gentleman]

wenn ich richtig überlegt habe dann müsste es rechnerisch in etwa so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  min, sec, tsec, rest: Integer;
begin
  tsec:= 85000;
  min:= tsec div 60000;
  rest:= 85000 - (60000 * min);
  sec:= rest div 1000;
  label1.Caption:= inttostr(min) + ':' + inttostr(sec);
end;