Problem bei Zeitberechnung

[shmia]

Delphi-Quellcode:

var
   zeit : TDateTime;
begin
   zeit := Now;  // Jetzt

   // einen TAG draufaddieren
   zeit := zeit + 1.0;   // ein TAG entspricht 1.0 "DateTime-Einheiten"

   // 2.5 Stunden draufaddieren
   // ein Tag hat 24 Stunden
   // 
   zeit := zeit + 2.5 / 24.0;
end;