From 5cde6facdb15f08e636b32eafa3928e54758937c Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 1 May 2021 06:32:48 +0000 Subject: [PATCH] * Patch from Werner Pamler to fix count of digits in periods git-svn-id: trunk@49299 - --- rtl/objpas/sysutils/dati.inc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc index 667d7c1360..e10405314b 100644 --- a/rtl/objpas/sysutils/dati.inc +++ b/rtl/objpas/sysutils/dati.inc @@ -1141,7 +1141,7 @@ var end ; 'H': if isInterval then - StoreInt(Hour + trunc(abs(DateTime))*24, 0) + StoreInt(Hour + trunc(abs(DateTime))*24, Count) else if Clock12 then begin @@ -1159,14 +1159,14 @@ var StoreInt(Hour, 2); end; 'N': if isInterval then - StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, 0) + StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, Count) else if Count = 1 then StoreInt(Minute, 0) else StoreInt(Minute, 2); 'S': if isInterval then - StoreInt(Second + (Minute + (Hour + trunc(abs(DateTime))*24)*60)*60, 0) + StoreInt(Second + (Minute + (Hour + trunc(abs(DateTime))*24)*60)*60, Count) else if Count = 1 then StoreInt(Second, 0)