paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 16:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for 037361 daysbetween if parameters are swapped and cross "0" boundery.

Browse Source 
git-svn-id: trunk@45793 -
This commit is contained in:
marco 2020-07-15 17:19:01 +00:00
parent 6e9095be79
commit 3b60890373
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1390,10 +1390,12 @@ end;
Function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
Result:=Trunc(Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond);
if anow>athen then
Result:=Trunc(Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)
else
Result:=Trunc(Abs(DateTimeDiff(AThen,ANow))+HalfMilliSecond); // bug 37361
end;
Function HoursBetween(const ANow, AThen: TDateTime): Int64;
begin
Result:=Trunc((Abs(DateTimeDiff(ANow,AThen))+HalfMilliSecond)*HoursPerDay);