paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 918 from trunk:

Browse Source 
------------------------------------------------------------------------
    r918 | michael | 2020-11-05 09:51:34 +0100 (Thu, 05 Nov 2020) | 1 line
    
    * Allow seconds to be empty
    ------------------------------------------------------------------------
This commit is contained in:
michael 2020-11-05 08:52:12 +00:00
commit 9a4dc8c43c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/dateutils.pas
View File

@ -2442,8 +2442,11 @@ begin
begin
lH:=StrToIntDef(Copy(AValue,P[ppHour],2),-1);
lMi:=StrToIntDef(Copy(AValue,P[ppMinute],2),-1);
lS:=StrToIntDef(Copy(AValue,P[ppSec],2),-1);
// Bug ID 37974
if (Length(AValue)>=P[ppSec]) then
lS:=StrToIntDef(Copy(AValue,P[ppSec],2),-1)
else
LS:=0;
if (Length(AValue)>=P[ppMSec]) then
lmS := StrToIntDef(Copy(AValue,P[ppMSec],3),-1);
end