From 16cbe36ee0b8e05bd4b88f35ad237cb2c6ba54aa Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 22 Apr 2021 20:14:00 +0000 Subject: * fixed MSecsToTimeStamp by Lagunov Aleksey, resolves #38631 git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49247 3ad0048d-3df7-0310-abae-a5850022a9f2 --- rtl/objpas/sysutils/dati.inc | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'rtl/objpas/sysutils/dati.inc') diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc index 19848e57bf..667d7c1360 100644 --- a/rtl/objpas/sysutils/dati.inc +++ b/rtl/objpas/sysutils/dati.inc @@ -75,18 +75,20 @@ end; { MSecsToTimeStamp } function MSecsToTimeStamp(MSecs: comp): TTimeStamp; +var + D1:Int64; begin - result.Date := Trunc(msecs / msecsperday); - msecs:= msecs-comp(result.date)*msecsperday; - result.Time := Round(MSecs); -end ; + D1:=Trunc(msecs); + result.Date := D1 div msecsperday; + result.Time := D1 - result.date * msecsperday; +end; { TimeStampToMSecs } function TimeStampToMSecs(const TimeStamp: TTimeStamp): comp; begin result := TimeStamp.Time + comp(timestamp.date)*msecsperday; -end ; +end; Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean; -- cgit v1.2.1