* fixed CompareDate function. Only dates are compared now, ignoring time of day.

git-svn-id: trunk@13949 -

rtl/objpas/dateutil.inc

@@ -1857,7 +1857,7 @@ Function CompareDate(const A, B: TDateTime): TValueRelationship;
 begin
   If SameDate(A,B) then
     Result:=EQualsValue
-  else if A<B then
+  else if Trunc(A)<Trunc(B) then
     Result:=LessThanValue
   else
     Result:=GreaterThanValue;