From fd499d41019ad642edbe1238a505099e71b13c2e Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 1 May 2021 06:32:48 +0000 Subject: * Patch from Werner Pamler to fix count of digits in periods git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49299 3ad0048d-3df7-0310-abae-a5850022a9f2 --- 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) -- cgit v1.2.1