paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +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 -
This commit is contained in:
michael 2021-05-01 06:32:48 +00:00
parent 5ef44c550a
commit 5cde6facdb
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

@ -1141,7 +1141,7 @@ var
end ; end ;
'H': 'H':
if isInterval then if isInterval then
StoreInt(Hour + trunc(abs(DateTime))*24, 0) StoreInt(Hour + trunc(abs(DateTime))*24, Count)
else else
if Clock12 then if Clock12 then
begin begin
@ -1159,14 +1159,14 @@ var
StoreInt(Hour, 2); StoreInt(Hour, 2);
end; end;
'N': if isInterval then 'N': if isInterval then
StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, 0) StoreInt(Minute + (Hour + trunc(abs(DateTime))*24)*60, Count)
else else
if Count = 1 then if Count = 1 then
StoreInt(Minute, 0) StoreInt(Minute, 0)
else else
StoreInt(Minute, 2); StoreInt(Minute, 2);
'S': if isInterval then '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 else
if Count = 1 then if Count = 1 then
StoreInt(Second, 0) StoreInt(Second, 0)