Use region invariant date for UrlEncoded

Author: timhall

specs/Specs_WebHelpers.bas

@@ -29,6 +29,7 @@ Public Function Specs() As SpecSuite
     Dim XmlString As String
     Dim Parsed As Object
     Dim Obj As Object
+    Dim LocalDate As Date
     Dim Coll As Collection
     Dim Bytes() As Byte
     Dim Str As String
@@ -142,12 +143,25 @@ Public Function Specs() As SpecSuite
         Set Obj = New Dictionary
 
         Obj.Add "a", 1
-        Obj.Add "b", 3.14
-        Obj.Add "c", "Howdy!"
-        Obj.Add "d & e", "A + B"
+        Obj.Add "b", "Howdy!"
+        Obj.Add "c & d", "A + B"
 
         Encoded = WebHelpers.ConvertToUrlEncoded(Obj)
-        .Expect(Encoded).ToEqual "a=1&b=3.14&c=Howdy!&d+%26+e=A+%2B+B"
+        .Expect(Encoded).ToEqual "a=1&b=Howdy!&c+%26+d=A+%2B+B"
+    End With
+    
+    With Specs.It("should use region invariant numbers and dates")
+        Set Obj = New Dictionary
+        LocalDate = 38113.7973263889
+        
+        Obj.Add "a", 1000.123
+        Obj.Add "b", LocalDate
+        
+        Encoded = WebHelpers.ConvertToUrlEncoded(Obj)
+        
+        ' Don't test hour/minute due to UTC offset
+        .Expect(Encoded).ToMatch "a=1000.123&b=2004-05-06T"
+        .Expect(Encoded).ToMatch "%3A09.000Z"
     End With
 
     ' ParseXml

src/WebHelpers.bas

@@ -1744,6 +1744,9 @@ Private Function web_GetUrlEncodedKeyValue(Key As Variant, Value As Variant) As
         Else
             Value = "false"
         End If
+    Case VBA.vbDate
+        ' Use region invariant date (ISO-8601)
+        Value = WebHelpers.ConvertToIso(CDate(Value))
     Case VBA.vbDecimal, VBA.vbSingle, VBA.vbDouble, VBA.vbCurrency
         ' Use region invariant number encoding ("." for decimal separator)
         Value = VBA.Replace(VBA.CStr(Value), ",", ".")