paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Werner Pamler to fix count of digits in periods

Browse Source 
git-svn-id: trunk@49299 -
(cherry picked from commit 5cde6facdb)
This commit is contained in:
michael 2021-05-01 06:32:48 +00:00 committed by marcoonthegit
parent 0826cb24f0
commit 5d7ba48f53
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/dati.inc
View File

@ -1130,7 +1130,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
@ -1148,14 +1148,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)