Millisekunden in Sekunden umrechnen

[DieDolly]

Ich komme gerade leider nicht drauf. Aber wie rechnet man in Delphi Millisekunden nach Sekunden um, sodass ich alles einzeln habe?
Aus 3699 wird dann beispielsweise 3 [sekunden] 699 [ms]

Ob das der richtige Weg ist?

Delphi-Quellcode:

 MSDouble := AMSSeconds / 1000;
 H := AMilliSeconds div 3600000;
 M := AMilliSeconds mod 3600000 div 60000;
 S := AMilliSeconds mod 3600000 mod 60000 div 1000;
 MS := Frac(MSDouble);

[Sherlock]

Vergiss nicht zu kürzen!
zB ist es schneller
sec := (mssec div 1000) mod 60 zu rechnen.

Sherlock

[DieDolly]

Wenn ich es schon schaffen würde 3234567890 korrekt aufzuteilen, dann könnte ich auch ans kürzen denken

Stattdessen ist bei 2147483647 Ende.

[Uwe Raabe]

Ich würde das so machen:

Delphi-Quellcode:

uses
  System.SysUtils, System.TimeSpan;
var
  span: TTimeSpan;
begin
  span := TTimeSpan.FromMilliseconds(3234567890);
  Writeln(Format('%d [Std] %d [Min] %d [Sek] %d [ms]', [span.Hours, span.Minutes, span.Seconds, span.Milliseconds]));
end;

[DieDolly]

Zitat:

bekomme aber trotzdem eine Fehlermeldung. Haben Sie eine andere Lösung?

Es wäre hilfreich zu erwähnen, was für eine Fehlermeldung erscheint.

[Delphi.Narium]

Zitat von DieDolly:

Wenn ich es schon schaffen würde 3234567890 korrekt aufzuteilen, dann könnte ich auch ans kürzen denken

Stattdessen ist bei 2147483647 Ende.

Das Ende liegt daran, dass der Ausgangswert größer als Max(Integer) ist, sprich: Da läuft was über. Mindestens LongInt nehmen, brauchst Du auch negative Zahlen? Wenn nein, dann nimm was vorzeichenloses.

Sekunden = Ausgangswert / 1000 ohne Rest
Millisekunden = Der Rest, der beim / abgeschnitten wird.

Delphi-Quellcode:

function Rechnemal(const Alles : Int64; var Sekunden : Int64; var Milli : Int64) : Boolean;
begin
  Sekunden := Ales DIV 1000;
  Milli    := Alles MOD 1000;
  Result   := (Sekunden + Milli) = Alles;
end;