paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 21:10:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* SecsPerHour, delphi compatibility.

Browse Source 
git-svn-id: trunk@42452 -
This commit is contained in:
marco 2019-07-17 21:15:17 +00:00
parent 5d4ae23df8
commit 6ca93e294f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/datih.inc
View File

@ -26,7 +26,9 @@ const
MinsPerHour = 60; MinsPerHour = 60;
SecsPerMin = 60; SecsPerMin = 60;
MSecsPerSec = 1000; MSecsPerSec = 1000;
MinsPerDay = HoursPerDay * MinsPerHour; MinsPerDay = HoursPerDay * MinsPerHour;
SecsPerHour = SecsPerMin * MinsPerHour;
SecsPerDay = MinsPerDay * SecsPerMin; SecsPerDay = MinsPerDay * SecsPerMin;
MSecsPerDay = SecsPerDay * MSecsPerSec; MSecsPerDay = SecsPerDay * MSecsPerSec;