Komme nicht weiter mit Zeitvergleichen?

[Tyrael Y.]

Zitat von Luckie:

Plus einem Deltawert, sonst stimmt der Vergleich 23 Stunden und 59 Minuten.

Wozu das?

Wenn man zwei TDateTime hat und mit größer gleich abfragt stimmt, die Abfrage in jedem Fall.
Das wichtige ist bei reiner Uhrzeitabfrage, daß man auch NUR die Uhrzeit vergleicht.

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
  DateTimePicker2.Time := TimeOf(Now()) 
end; 

procedure TForm4.Timer1Timer(Sender: TObject);
begin
   if TimeOf(Now()) >= DateTimePicker2.Time then 
     ShowMessage('Ok');
end;

Habs nicht getestet, aber sollte so richtig sein.