TDateTime vergleichen??

[Rakshasa]

Hi!!

Schon wieder ein komischer Fehler bei meinem Delphi (oder mir?!?)

Ich habe zwei TDateTime-Variablen: DateNow und DateOld. Ziel ist es, beide TDateTimes zu vergleichen, eigentlich ganz einfach.


Wollte dazu folgenden Code benutzen:

Code:

If DateNow <> DateOld then begin
 ...
end;

Sollte ja eigentlich kein Problem sein! Funktioniert aber nicht! Das verrückte ist, wenn ich mir mit

Code:

If DateNow <> DateOld then begin
 Showmessage(DateTimeToStr(datenow) + ' <> ' +  DateTimeToStr(dateold));
end;

die beiden Daten anzeigen lasse, sind diese definitiv gleich! Wenn ich dann mit diesem Code

Code:

if not Sametext(DateTimeToStr(DateNow), DateTimeToStr(DateOld)) then begin
 ...
end;

vergleiche, werden die Unterschiede zwischen den beiden Daten gefunden! Was mache ich falsch?? Oder programmiere ich schon zu lange heute????