CompareDate gibt immer 1 aus...

[Popov]

Bedenke bitte, dass es im Grunde egal ist ob du TDateTime oder TDate oder TTime nimmst. Im Hintergrund ist alles TDateTime. Das ist irreführend, aber TDate speichert nicht Datum, sondern auch Uhrzeit ab.

Wenn du also eine TDate Variable definierst und ihr Now zuweist, dann hast du ihr Datum und Uhrzeit zugewiesen. Die Variable enthält also den TDateTime Wert. Und Now jetzt, selbst wenn es eine TDate Variable ist, und Now eine Millisekunde später, sind nicht gleich.

Lösung:

- Statt Now Funktion Date Funktion nehmen. Die gibt nur das Datum zurück.
- oder Trunc(Now) eingeben. Damit wird die Uhrzeit angeschnitten.