Wie kann ich Zeit (00:00:04) in Integer (4)

[bundy]

Hallo wie kann ich eine Zeit z.B 00:00:04 in einen Integerwert umwandln
zum rechnen.

danke

[Stanlay Hanks]

Delphi-Quellcode:

var h,m,s,ms : Word;
begin
DecodeTime(Now, h,m,s,ms);
end;

Now ist die momentane Zeit. In h wird die Stunde, in m die Minuten, in s die Sekunden und in ms die Millisekunden gespeichert. Mit denen kannst du dann weiterarbeiten.

[r_kerber]

Mal ungetestet

Delphi-Quellcode:

var
  sTime: String;
  iTime: Integer;
begin
  sTime := '10:10:10';
  iTime := 0;
  iTime := StrToInt (Copy (sTime, 1, 2)) * 3600 +
           StrToInt (Copy (sTime, 4, 2)) * 60 +
           StrToInt (Copy (sTime, 7, 2));
end;

Das sollte die Sekunden der Zeitangabe ergeben.

[Stanlay Hanks]

Zitat von r_kerber:

Mal ungetestet

Delphi-Quellcode:

var
  String: sTime;
  Integer iTime;
...

Das is doch mal ne interessante Variablendeklaration.
Aber im Ernst, was wolltest du denn genau? Wolltest du dass aus 04:55:10 wird: 045510 oder wolltest du die einzelnen Bestandtteile (wie ich es gemacht hab) in Stunden, Minuten, Sekunden, Millisekunden?

[r_kerber]

Zitat von Stanlay Hanks:

Das is doch mal ne interessante Variablendeklaration.

Tschuldigung. Aber das passiert, wenn man ständig zwischen C++ und Delphi wechselt!

[bundy]

!!!!!!!!!!!!!!!!!! FUNKTIONIERT !!!!!!!!!!!!!!!!!!!!!!

DANKE DANKE

[r_kerber]

Welcher der beiden Vorschläge hat bei Dir gepaßt?

[bundy]

Deine danke nochmal.

mfg
bundy

[negaH]

Sekunden = Trunc(Frac(TDateTime) * (24 * 60 * 60));

TDatetime speichert im Ganzzahlteil die Anzahl der Tage und im gebrochenen Teil (Nachkommateil) die Bruchteile eines Tages.
24 Stunden * 60 Minuten * 60 Sekunden sind die Sekunden pro Tag.
Trunc(Nachkommateil(datetime) * SekundenProTag) = SekundenImDateTime.

Gruß Hagen