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;