paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-13 09:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow seconds to be empty

Browse Source
This commit is contained in:
michael 2020-11-05 08:51:34 +00:00
parent 1a5c3bba66
commit 07d4e4a9fe
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 begin
lH:=StrToIntDef(Copy(AValue,P[ppHour],2),-1); lH:=StrToIntDef(Copy(AValue,P[ppHour],2),-1);
lMi:=StrToIntDef(Copy(AValue,P[ppMinute],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 if (Length(AValue)>=P[ppMSec]) then
lmS := StrToIntDef(Copy(AValue,P[ppMSec],3),-1); lmS := StrToIntDef(Copy(AValue,P[ppMSec],3),-1);
end end