From c88cebfc979a22210638ee6c03d0aadd7d4e2297 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 11 Mar 2014 21:51:57 +0000
Subject: [PATCH] * fix for DateTimeToJulianDate and JulianDateToDateTime for
 integer=smallint

git-svn-id: trunk@27103 -
---
 packages/rtl-objpas/src/inc/dateutil.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/dateutil.inc b/packages/rtl-objpas/src/inc/dateutil.inc
index 39e4249bd1..34b7b5a169 100644
--- a/packages/rtl-objpas/src/inc/dateutil.inc
+++ b/packages/rtl-objpas/src/inc/dateutil.inc
@@ -2044,7 +2044,7 @@ end;
 Function DateTimeToJulianDate(const AValue: TDateTime): Double;
 var
   day,month,year: word;
-  a,y,m: integer;
+  a,y,m: longint;
 begin
   DecodeDate ( AValue, year, month, day );
   a := (14-month) div 12;
@@ -2064,7 +2064,7 @@ end;
 
 Function TryJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;
 var
-  a,b,c,d,e,m:integer;
+  a,b,c,d,e,m:longint;
   day,month,year: word;
 begin
   a := trunc(AValue + 32044.5);