paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better precision for samedatetime. Issue ID #39023, patch by Zoran Vučenović

Browse Source 
git-svn-id: trunk@49517 -
This commit is contained in:
michael 2021-06-20 08:00:01 +00:00
parent 436b8c2121
commit 492a0ffcac
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl-objpas/src/inc/dateutil.inc
View File

@ -2060,8 +2060,21 @@ end;
Function SameDateTime(const A, B: TDateTime): Boolean;
function MS(X: Double): Int64;
begin
if X >= 0 then
X := X * MSecsPerDay + 0.5
else if X > -1.0 then
X := -X * MSecsPerDay + 0.5
else
X := X * MSecsPerDay - 0.5;
Result := Trunc(X);
end;
begin
Result:=Abs(A-B)<OneMilliSecond;
Result := MS(A) = MS(B);
end;