From d4d3227e778f01ea39597c8ce20c70473ee01e04 Mon Sep 17 00:00:00 2001
From: ivost <ivost@idefix.freepascal.org>
Date: Sat, 24 Oct 2009 20:53:00 +0000
Subject: [PATCH] * fixed CompareDate function. Only dates are compared now,
 ignoring time of day.

git-svn-id: trunk@13949 -
---
 rtl/objpas/dateutil.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/dateutil.inc b/rtl/objpas/dateutil.inc
index 4091ba30af..23cae09b1d 100644
--- a/rtl/objpas/dateutil.inc
+++ b/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;