From ff31761d6265ffbfb9347a570fb48378d751268e Mon Sep 17 00:00:00 2001 From: micha Date: Thu, 13 Apr 2006 16:32:07 +0000 Subject: [PATCH] fix datetime from/to timestamp conversion (delphi compat) git-svn-id: trunk@3201 - --- rtl/objpas/sysutils/dati.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc index e43daa25f0..26ff1c06c4 100644 --- a/rtl/objpas/sysutils/dati.inc +++ b/rtl/objpas/sysutils/dati.inc @@ -57,14 +57,14 @@ end; function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; begin result.Time := Trunc(Frac(DateTime) * MSecsPerDay); - result.Date := 1 + DateDelta + Trunc(System.Int(DateTime)); + result.Date := DateDelta + Trunc(System.Int(DateTime)); end ; { TimeStampToDateTime converts TimeStamp to a TDateTime value } function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime; begin - result := (TimeStamp.Date - DateDelta - 1) + (TimeStamp.Time / MSecsPerDay); + result := (TimeStamp.Date - DateDelta) + (TimeStamp.Time / MSecsPerDay); end ; { MSecsToTimeStamp }