paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2026-02-18 17:36:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add secsperhour. Fix issue #39226

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-23 07:45:07 +02:00
parent 1cc84b8e1b
commit e77cb3502d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl/sysutils.pas
View File

@ -446,9 +446,12 @@ const
MinsPerHour = 60;
SecsPerMin = 60;
MSecsPerSec = 1000;
MinsPerDay = HoursPerDay * MinsPerHour;
SecsPerHour = SecsPerMin * MinsPerHour;
SecsPerDay = MinsPerDay * SecsPerMin;
MSecsPerDay = SecsPerDay * MSecsPerSec;
MaxDateTime: TDateTime = 2958465.99999999;
MinDateTime: TDateTime = -693593.99999999;