Falls jemand nicht weiß was wieviel ist und sich daher keine eigene Konstannte erstellen kann:
http://docwiki.embarcadero.com/VCL/X...ls.HoursPerDay
Es gibt tausende Wege, welche man ganz leicht selber rausfinden kann, wenn man allein nur mal paar Minuten land die Units SysUtils und DateUtils ansieht oder allgemein nach Zeitfunktionen in der
OH sucht.
Delphi-Quellcode:
ZeitBisMitternacht := IncDay(DateOf(Now)) - Now;
ZeitBisMitternacht := IncDay(Date) - Now;
ZeitBisMitternacht := Tomorrow - Now;
ZeitBisMitternacht := 1 - Time;
...