diff --git a/rtl/objpas/sysutils/datih.inc b/rtl/objpas/sysutils/datih.inc
index 59abf4fa10..e544182fca 100644
--- a/rtl/objpas/sysutils/datih.inc
+++ b/rtl/objpas/sysutils/datih.inc
@@ -26,7 +26,9 @@ const
    MinsPerHour = 60;
    SecsPerMin  = 60;
    MSecsPerSec = 1000;
+
    MinsPerDay  = HoursPerDay * MinsPerHour;
+   SecsPerHour = SecsPerMin * MinsPerHour;
    SecsPerDay  = MinsPerDay * SecsPerMin;
    MSecsPerDay = SecsPerDay * MSecsPerSec;