Delphi-PRAXiS - Delphi Problem bei der Berechnung eines Zeitraums

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Problem bei der Berechnung eines Zeitraums (https://www.delphipraxis.net/27009-problem-bei-der-berechnung-eines-zeitraums.html)

Marc	2. Aug 2004 19:23

Problem bei der Berechnung eines Zeitraums

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

2. Aug 2004 19:27

Re: Problem bei der Berechnung eines Zeitraums

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

2. Aug 2004 20:42

Re: Problem bei der Berechnung eines Zeitraums

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;

Alle Zeitangaben in WEZ +1. Es ist jetzt 11:04 Uhr.