diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-05-01 06:32:48 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-05-01 06:32:48 +0000 |
| commit | fd499d41019ad642edbe1238a505099e71b13c2e (patch) | |
| tree | 61440717c3a2212c567bfe874cd4aae0f60febbb | |
| parent | 88d88de52edb3a2652a83e6e2bcfa422dddfa0bf (diff) | |
| download | fpc-fd499d41019ad642edbe1238a505099e71b13c2e.tar.gz | |
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49299 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/objpas/sysutils/dati.inc | 6 |
1 files 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) |