CompareDate gibt immer 1 aus...

[Codix32]

Merkwürdiges Verhalten bei CompareDate

Egal ob der erste Datumwert kleiner, größer, oder gleich dem Zweiten ist:

Der Wert ist immer 1

Hat jemand sowas schon erlebt?

Delphi-Quellcode:

var
  a, b:TDate;
begin
 a:= now;
 if Key = VK_Return then
  begin
   b:= strtodate(Edit1.Text);
   Label1.Caption:= inttostr(compareDate(a,b));
  end;
end;