Datum / Zeit Vergleichen

[hoika]

Hallo,

wenn schon Time,
dann zu Beginn in eine lokale Variable packen,
sonst wird ja beim ersten Time (Vergleich) und beim zweiten u.U.
ein anderer Wert ermittelt (die Zeit läuft ja weiter).

Ein anderes Problem ist, dass Time auch die Millisekunden benutzt,
bei einem Vergleich könnte das Probleme geben.
Ich habe das über eine CutToMin Methode gelöst

Delphi-Quellcode:

function CutToMin(theTime: TDateTime): TDateTime;
var
  Hours, Min, Sec, MSec: Word;
begin 
  DecodeTime(theTime,  Hours, Min, Sec, MSec);
  Result:= EncodeTime(Hours, Min, Sec, 0)
end;

Heiko