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

Delphi-Quellcode:

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 :lol:

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;

[Delphi.Narium]

Zitat:

Zitat von DieDolly (Beitrag 1428408)

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

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;

[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.

[Schokohase]

Zitat:

Zitat von DieDolly (Beitrag 1429417)

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.

Das ist Kreativ-SPAM und soll nur den Link in der Signatur bewerben ... das ist jetzt der dritte Neuzugang der so agiert

[DieDolly]

Den Link habe ich gar nicht gesehen.

[Schokohase]

Zitat:

Zitat von DieDolly (Beitrag 1429419)

Den Link habe ich gar nicht gesehen.

Aber er ist da und nun verweist die DELPHI-Praxis auf diesen Link womit auch die Reputation/das Ranking für diesen Link steigt ...

[DieDolly]

Ich bin ja noch immer für eine verschärfte Registrierung. Mindestens Captcha.