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?

[smart]

Zitat:

Zitat von 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?

In einer Eingabe Box soll der Anwender eine gewisse Zeit eingeben z.B. ‚5:20’ also 5 Minuten und 20 Sekunden. (Ist ein String). Jetzt soll diese Zeiteingabe mit einer anderen zusammen gerechnet werden. Gleichzeitig soll diese Zeit dann visuell z. B. an einem Scrollbalken dargestellt werden. Dazu brauche ich dann die Zeit als Integer. Ich brauchen jetzt nur noch eine Umrechnung die aus ‚5:20’ -> 320 macht.

Gruß
Heike

[Klaus01]

TDateTime ist ein Floatwert,
Wobei der Dezimalwert die Tage angibt und der Dezimalbruch den Bruchteil eines Tages.

Mit frac läßt sich der Dezimalbruch aus dem Floatwert heraustrennen.
Damit und mit einer Konstante (1000 oder so) zum Multiplizieren sollte sich dann ein Scrollbalken oder Progressbar betreiben lassen.

Grüße
Klaus

[Neon-chan]

Zur Not kannst du es übe StringList und Delimited String machen

Delphi-Quellcode:

var
  Sekunden:Integer;
  Buffer: TStringList;
begin
  Buffer := TStringList.Create;
  try
    Buffer.Delimiter := ':';
    Buffer.DelimitedText := '5:30'; //hier kommt dann halt deine stringvariable hin

    Sekunden := (StrtoInt(Buffer.Strings[0]) * 60 ) + StrToInt(Buffer.Strings[1]);
  finally
    Buffer.free;
  end;
end;

sollte so klappen, auch wenns sicher eleganter geht ^^

[chrisw]

Also um aus "5:20" "320" zu machen kannst Du folgendes nutzen:

Delphi-Quellcode:

var h,m,s,msec : Word;
    zeit : String;
begin
  Zeit := '5:20';
  decodetime(StrToTime(zeit),h,m,s,msec);
  showmessage(Inttostr(h*60 + m));  // sind 320 Minuten
end;