Hallo Leute,
Ich würde gerne Sekunden in Tag(e) Stunden Minuten und Sekunden umrechnen.
Mein Problem was ich hab ist, das irgend was bei der Umrechnung falsch ist und deswegen die Ausgabe falsch ausgegeben wird.
Die Ausgabe meines nachfolgenden Codes ist: 2 Tage 62:15:15
Die Angabe 62 Stunden ist dort ja falsch und ich versteh nicht ganz wo drann das liegt.
Hier mal mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| var Tage, Stunden, Minuten, Sekunden, Teiler: Integer;
begin
SekundenEin := 224115;
Teiler := 60;
Sekunden := SekundenEin mod Teiler;
Minuten := (SekundenEin div Teiler) mod Teiler;
Stunden := (SekundenEin div Teiler) div Teiler;
Tage := Stunden div 24;
if Tage = 1 then
begin
lblZeit.Caption :=
IntToStr (Tage)+' Tag '+
IntToStr (Stunden)+':'+
IntToStr (Minuten)+':'+
IntToStr (Sekunden);
end else
begin
lblZeit.Caption :=
IntToStr (Tage)+' Tage '+
IntToStr (Stunden)+':'+
IntToStr (Minuten)+':'+
IntToStr (Sekunden);
end; |
Ich hoffe das mir da jemand Helfen kann, das gerade zu biegen.
Danke schon mal fürs Helfen.
Mfg Dog
DiamondDog
