Integer Wert in hh:mm:ss umwandeln?

[malte_M]

Hallo,

ich habe vor ein paar Tagen eine ältere Delphi Version geschenkt bekommen (D7 Pro). Nun hat mich das Programmierfieber gepackt und ich habe auch schon einige Fortschritte gemacht. Nun habe ich aber ein Problem, bei dem ich nicht weiterkomme.

Ich möchte einen Integer-Wert in einen String umwandel der folgendermaßen aussieht:

Bsp: 4328 Sekunden = 01:12:08

Trotz aller möglichen Probiererei, habe ich das nicht hinbekommen. Gibt es vielleicht schon eine fertige Funktion dafür? Oder kann mir jemand einen Tipp geben wie ich das hinbekomme?

Viele Grüße
Malte

[Matze]

Hi, herzlich willkommen!

Da hilft dir die Suche ganz sicher weiter. Beispielsweise dieser Thread.

[3_of_8]

Delphi-Quellcode:

function foo(Value: Integer): String;
var h, m, s: Word;
begin
  DivMod(Value, 60, m, s);
  DivMod(m, 60, h, m);
  Result:=Format('%.2d:%.2d:%.2d', [h, m, s]);
end;

Ein besserer Funktionssname ist mir nicht eingefallen.

Du musst noch Math einbinden, damit das mit DivMod geht. Wenn du das nicht sowieso brauchst, kannst dus auch so machen, dann musst du es nicht einbinden:

Delphi-Quellcode:

function foo(Value: Integer): String;
var h, m, s: Word;
begin
  m:=Value div 60;
  s:=Value mod 60;
  h:=m div 60;
  m:=m mod 60;
  Result:=Format('%.2d:%.2d:%.2d', [h, m, s]);
end;

[malte_M]

Hallo
und Danke für die vielen und schnellen Anworten. Das hilft mir weiter.

Leider bringt das suchen immer nur was, wenn man die Fragen richtig formuliert .

Viele Grüße
Malte