Zeitberechnung eigentlich simpel, aber wie?

[Hobby-Programmierer]

Tach ...,

Zitat von Daniel G:

Zitat von Hawkeye219:

und damit leider nicht das, was cherry möchte.

Das macht seine Funktion in Beitrag #14 aber auch nicht. Insofern scheint ihn das ja nicht zu stören...

... sehr wohl addiert er 24h hinzu, wenn EndeZeit < StartZeit

Delphi-Quellcode:

  if start > ende then
  ende:= IncDay(ende);

Zitat von Daniel G:

An dieser Stelle sei auch mal auf drei tolle Funktionen der Unit DateUtils hingewiesen:

Delphi-Quellcode:

function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;

Natürlich hätte der OP auch [oh]function HoursBetween(const ANow, AThen: TDateTime): Int64;[/oh] nutzen können, aber es gibt noch mehr 'tolle' Functionen in o.g. Unit! Eine davon benutzt er
[oh]function HourSpan(const ANow, AThen: TDateTime): Double;[/oh]

LG Mario