zeitinterval in stunden berechnen

[sveta]

Hallo zusammen,
ich möchte eine zeit interval in stunden berechnen.
also z.B

Delphi-Quellcode:

anfang:='29.08.2006 10:30:00';
ende  :='04.09.2006 07:00:00';

wie kann ich bestimmen wie viele Stunden zwischen Anfang und Ende sind?

danke

[oki]

Hi sweta,

Ende - Anfang

Gruß oki

[ste_ett]

Delphi-Quellcode:

var
  Start, Ende: TDateTime;
  Dif: Int64;
begin
  Start := EncodeDateTime(Year, Month, Day, Hour, Minute, Second);
  Ende := EncodeDateTime(Year, Month, Day, Hour, Minute, Second);
  Dif := HoursBetween(Start, Ende);

[TeronG]

StrToDateTime();
und dann:
(ende - start) * 24 //<-- mal 24 weil kommatage

[sveta]

Nein so einfach ist es nicht!
was ich brauche ist dann so ein Antwort: 140:30:00!! :zwinker:

[TeronG]

Zitat:

Zitat von sveta

Nein so einfach ist es nicht!
was ich brauche ist dann so ein Antwort: 140:30:00!! :zwinker:

Dann hilft dir bestimmt DecodeDateTime()

[sveta]

@set_ett
danke dir dass sieht zwar gut aus aber dif ist immernoch 0.
ich hab es so in meinem Code reingeschrieben.

Delphi-Quellcode:

Start := EncodeDateTime(2006, 08, 29, 10, 30, 00,00);
Ende :=  EncodeDateTime(2006, 09, 04,07, 00, 00,00);
Dif :=   HoursBetween(Start, Ende);

in Start und Ende sind zware werte gespeichert aber Dif=0

[ste_ett]

Bei mir klappt es.
Dif ist 140.

Zegig mal die Stelle, wo du den Teil nutzt.

[sveta]

danke ste-ett hat geklappt!!
aber wie kann ich es auch für die minuten hinbekommen, dazwischen sind 140.5 stunden

[ste_ett]

Delphi stellt eine Reihe Funktionen für den Bereich zur Verfügung.

Delphi-Quellcode:

YearsBetween()
MonthsBetween()
WeeksBetween()
DaysBetween()
HoursBetween()
MinutesBetween()
SecondsBetween()
MilliSecondsBetween()

[sveta]

danke :mrgreen:

[Hawkeye219]

Hallo sveta,

hier ist noch ein Ansatz:

Delphi-Quellcode:

var
  DT : TDateTime;
  s : string;
begin
  DT := StrToDateTime('04.09.2006 07:00:00') - StrToDateTime('29.08.2006 10:30:00');
  s := IntToStr(Trunc(24 * DT)) + FormatDateTime(':nn:ss', DT);
end;

Gruß Hawkeye

[sveta]

daaanke Hawkeye genau dass was ich wollte! :hi: