Problem bei der Berechnung eines Zeitraums

[Marc]

Hallo,

ich habe zwei TTime (start, ende) mit folgenden Werten:
start: 20:00
ende: 01:00

wenn ich den vergangen Zeitraum berechnen will:

Code:

zeitraum := ende - start;

bekomme ich 19:00, allerdings ist das richtige Ergebnis 05:00 Stunden.

Habt ihr eine Idee wie ich mit Delphi auf die 5 Stunden komme?


Danke

[mischerr]

Code:

if ende<start then ende:= ende+24

:gruebel:

Aber was ist, wenn 2 Tage dazwischen liegen? Kannst du das nicht um das Datum erweitern?

Grüsse!

[SirThornberry]

schau dir mal aus der unit dateutils die funktionen

Delphi-Quellcode:

function YearSpan(const ANow, AThen: TDateTime): Double;
function MonthSpan(const ANow, AThen: TDateTime): Double;
function WeekSpan(const ANow, AThen: TDateTime): Double;
function DaySpan(const ANow, AThen: TDateTime): Double;
function HourSpan(const ANow, AThen: TDateTime): Double;
function MinuteSpan(const ANow, AThen: TDateTime): Double;
function SecondSpan(const ANow, AThen: TDateTime): Double;
function MilliSecondSpan(const ANow, AThen: TDateTime): Double;

an