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

* Proper fix for bug ID #30697

Browse Source 
git-svn-id: trunk@34997 -
This commit is contained in:
michael 2016-11-27 19:54:49 +00:00
parent a25ebbba3e
commit 5786182188
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2148,8 +2148,9 @@ end;
---------------------------------------------------------------------}
Function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
Result:=Trunc(DateTimeDiff(AValue,UnixEpoch)*SecsPerDay);
Result:=Round(DateTimeDiff(RecodeMillisecond(AValue,0),UnixEpoch)*SecsPerDay);
end;