Probleme mit der Umrechnung von Zeitrechnung

del1312 · Beiträge: 190

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:

markieren

Delphi-Quelltext

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

klappt nicht.

Moderiert von Tino: Delphi-Tags hinzugefügt.

smiegel · Verfasst: Do 23.10.03 15:48

Hallo,

markieren

Delphi-Quelltext

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

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

del1312 · Beiträge: 190

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 · Beiträge: 324

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

barfuesser

Wolff68 · Beiträge: 302 Erhaltene Danke: 1 WinXP home D6 Prof

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.

_________________
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."

Gast Erhaltene Danke: 1

Edit4.Text ist String. StrToInt liefert aber int

Wie wärs hiermit:

markieren

Delphi-Quelltext

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme