paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-11 07:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Bruno Fierens to take into account milliseconds in RFC3339 dates

Browse Source
This commit is contained in:
michael 2020-10-13 07:59:08 +00:00
parent 6597c81be0
commit cff01fce48
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/dateutils.pas
View File

@ -2420,14 +2420,14 @@ Function TryRFC3339ToDateTime(const Avalue: String; out ADateTime: TDateTime): B
// yyyy-mm-ddThh:nn:ss.zzz
Type
TPartPos = (ppTime,ppYear,ppMonth,ppDay,ppHour,ppMinute,ppSec);
TPartPos = (ppTime,ppYear,ppMonth,ppDay,ppHour,ppMinute,ppSec,ppMSec);
TPos = Array [TPartPos] of byte;
Const
P : TPos = (11,1,6,9,12,15,18);
P : TPos = (11,1,6,9,12,15,18,21);
var
lY, lM, lD, lH, lMi, lS: Integer;
lY, lM, lD, lH, lMi, lS, lMs: Integer;
begin
if Trim(AValue) = '' then
@ -2443,14 +2443,18 @@ 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);
if (Length(AValue)>=P[ppMSec]) then
lmS := StrToIntDef(Copy(AValue,P[ppMSec],3),-1);
end
else
begin
lH:=0;
lMi:=0;
lS:=0;
lMS:=0;
end;
Result:=(lY>=0) and (lM>=0) and (lD>=0) and (lH>=0) and (lMi>=0) and (ls>=0);
Result:=(lY>=0) and (lM>=0) and (lD>=0) and (lH>=0) and (lMi>=0) and (ls>=0) and (lMS>=0);
if Not Result then
ADateTime:=0
else
@ -2458,7 +2462,7 @@ begin
if (lY = 0) or (lM = 0) or (lD = 0) then
ADateTime:=EncodeTime(lH, lMi, lS, 0)
else
ADateTime:=EncodeDate(lY, lM, lD) + EncodeTime(lH, lMi, lS, 0);
ADateTime:=EncodeDate(lY, lM, lD) + EncodeTime(lH, lMi, lS, lMs);
end;
Function RFC3339ToDateTime(const Avalue: String): TDateTime;