Uhrzeiten Addieren?

[smart]

Hallo Alle!

Wie kann man mit Delphi Uhrzeiten Addieren. ZB. 00:60 Sek. + 00:45 Sek. Bei mir kommt da immer 01:05 raus. Richtig ist aber 01:45.

Gruß
Heike

[Klaus01]

Beide Werte in das Zeitformat umwandeln dann addieren und wieder in einen String umwandeln.
StrToTime könnte hier hilfreich sein.

Grüße
Klaus

[arbu man]

Von welchen typ sind denn die Uhrzeiten bei TTime sollte es eigentlich gehen.

Delphi-Quellcode:

showmessage(TimeToStr(TTimeWert1 + TTimeWert2));

[smart]

Zitat:

Zitat von arbu man

Von welchen typ sind denn die Uhrzeiten bei TTime sollte es eigentlich gehen.

Delphi-Quellcode:

showmessage(TimeToStr(TTimeWert1 + TTimeWert2));

Hallo Björn!

Das hatte ich auch schon versucht:

Delphi-Quellcode:

showmessage(TimeToStr('00:30:00' + '00:30:00'));

oder

Delphi-Quellcode:

showmessage(TimeToStr('00:30.00' + '00:30.00'));

oder

Delphi-Quellcode:

showmessage(TimeToStr('00:30' + '00:30'));

Dabekomme ich immer ne Fehlermeldung vom Type:
Inkompatible Typen: 'TDateTime' und 'String'

Gruß
Heike

[Balu der Bär]

Delphi-Quellcode:

showmessage(TimeToStr(StrToTime('00:30') + StrToTime('00:30')));

[smart]

Zitat:

Zitat von Balu der Bär

Delphi-Quellcode:

showmessage(TimeToStr(StrToTime('00:30') + StrToTime('00:30')));

Vielen Damk, Das was der Fehler.

Gruß
Heike

[Neon-chan]

Dass bei 00:30 + 00:45 1:05 rauskommt liegt einfach daran, dass die letzte Stelle einer TTime variable nicht Sekunden sondern Millisekunden angibt

[Klaus01]

Zitat:

Zitat von smart

Zitat:

Zitat von arbu man

Von welchen typ sind denn die Uhrzeiten bei TTime sollte es eigentlich gehen.

Delphi-Quellcode:

showmessage(TimeToStr(TTimeWert1 + TTimeWert2));

Hallo Björn!

Das hatte ich auch schon versucht:

Delphi-Quellcode:

showmessage(TimeToStr('00:30:00' + '00:30:00'));

oder

Delphi-Quellcode:

showmessage(TimeToStr('00:30.00' + '00:30.00'));

oder

Delphi-Quellcode:

showmessage(TimeToStr('00:30' + '00:30'));

Dabekomme ich immer ne Fehlermeldung vom Type:
Inkompatible Typen: 'TDateTime' und 'String'

Gruß
Heike

Hallo Heike,

wenn Du die Zeiten so addieren willst, müssen die sie als TTime vorliegen
also als Floatwert.

Du kannst Deine Stringwerte "00:00:30" aber mit StrToTime konvertieren.

Grüße
Klaus

[smart]

Ist es auch möglich, das ganze als Integer um zu wandeln?
Z.B.

Delphi-Quellcode:

TimeToStr(StrToTime(Zeit));

Als Integer

Delphi-Quellcode:

StrToInt(TimeToStr(StrToTime(Zeit)));

Geht nicht.

Gruß
Heike

[Neon-chan]

Nein das geht nicht

TTime, TDate und TDateTime sind immer Float-Werte und nicht mit Integer kompatibel

Was genau möchtest du den erreichen?