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