diff --git a/rtl/objpas/dateutil.inc b/rtl/objpas/dateutil.inc
index 23cae09b1d..4091ba30af 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 Trunc(A)<Trunc(B) then
+  else if A<B then
     Result:=LessThanValue
   else
     Result:=GreaterThanValue;