Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Add secsperhour. Fix issue #39226

Michaël Van Canneyt 3 years ago
parent
1cc84b8e1b
commit
e77cb3502d
1 changed files with 3 additions and 0 deletions
Split View Show Diff Stats
  1. 3 0
      packages/rtl/sysutils.pas

+ 3 - 0
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;