Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Probleme mit der Umrechnung von Zeitrechnung


del1312 - Do 23.10.03 15:42
Titel: Probleme mit der Umrechnung von Zeitrechnung
Hab ein kleines Prob mit der Umrechnung von Zeit.

Hab zwei Variablen die eine Start und Endzeit haben

Delphi-Quelltext
1:
2:
3:
eins:=StrToTime(Edit1.Text); // Startzeit
zwei:=StrToTime(Edit2.Text); //Endzeit
Edit3.Text:=TimeToStr(zwei-eins); //Differenz

Edit3 zeigt mir dann die Differenz, wie kann ich diese Zahl sagen wir mal
08:00:00 dann *60 nehmen und dann / 5 teilen?

mit:

Delphi-Quelltext
1:
Edit4.Text:=StrToInt((Edit3.Text)*60)/5);                    

klappt nicht.

Moderiert von user profile iconTino: Delphi-Tags hinzugefügt.


smiegel - Do 23.10.03 15:48

Hallo,


Delphi-Quelltext
1:
Edit4.Text:=IntToStr(StrToInt((Edit3.Text)*60)/5));                    


del1312 - Fr 24.10.03 09:08

hm danke aber es klappt irgendwie nicht. kann es sein das es daran liegt, das der wert in edit3 so aussieht: 08:00:00 und wenn der als Integer umgerechnet wird nicht mit gerechnent werden kann? wie kann ich einfach eine Uhrzeit in einen Zahl umrechnen und die Minuten anzeigen lasen?


barfuesser - Fr 24.10.03 09:21

Sieh Dir mal in der Onlinehilfe die Datums- und Zeitroutinen und den Datentyp TDateTime an.

barfuesser


Wolff68 - Fr 24.10.03 17:36

Also bisher war die Uhrzeit in Delphi immer ein Nachkommawert...
Und wenn ich was durch 5 teile kommt auch eine Flieskommazahl raus (Ausser ich nehm DIV)

Warum also sollte das mit IntToStr() funktionieren?
Wenn, dann müsstest Du schon das ganze Runden (mit Round oder Trunc)

PS: Was bekommt man eigentlich für eine Uhrzeit, wenn man die Stunden *60 / 5 rechnet... :?:
OK. Du wirst es schon wissen.


Anonymous - Fr 24.10.03 18:20

Edit4.Text ist String. StrToInt liefert aber int

Wie wärs hiermit:


Delphi-Quelltext
1:
Edit4.Text:=TimeToStr(StrToTime(Edit3.Text)*60)/5);