Skip to content

Commit 64111d5

Browse files
committed
Update VBA-JSON to v1.0.1
Fixes #96
1 parent 7dce0b6 commit 64111d5

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/WebHelpers.bas

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1728,7 +1728,7 @@ Private Function web_GetUrlEncodedKeyValue(Key As Variant, Value As Variant) As
17281728
End Function
17291729

17301730
''
1731-
' VBA-JSON v1.0.0
1731+
' VBA-JSON v1.0.1
17321732
' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON
17331733
'
17341734
' JSON Converter for VBA
@@ -2121,9 +2121,7 @@ Private Function json_ParseNumber(json_String As String, ByRef json_Index As Lon
21212121
If json_ConvertLargeNumbersToString And Len(json_Value) >= 16 Then
21222122
json_ParseNumber = json_Value
21232123
Else
2124-
' Guard for regional settings that use "," for decimal
2125-
' CStr(0.1) -> "0.1" or "0,1" based on regional settings -> Replace "." with "." or ","
2126-
json_Value = VBA.Replace(json_Value, ".", VBA.Mid$(VBA.CStr(0.1), 2, 1))
2124+
' VBA.Val does not use regional settings, so guard for comma is not needed
21272125
json_ParseNumber = VBA.Val(json_Value)
21282126
End If
21292127
Exit Function

0 commit comments

Comments
 (0)