(Visual Basic 6.0) JSON Date Parsing

Demonstrates how to parse date/time strings from JSON.

Note: This example uses the DtOf and DateOf methods introduced in Chilkat v9.5.0.73

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long

Dim json As New ChilkatJsonObject
json.EmitCompact = 0

' First, let's create JSON containing some date/time strings.
success = json.UpdateString("test.timestamp","2018-01-30T20:35:00Z")
success = json.UpdateString("test.rfc822","Tue, 24 Apr 2018 08:47:03 -0500")
success = json.UpdateString("test.dateStrings[0]","2018-01-30T20:35:00Z")
success = json.UpdateString("test.dateStrings[1]","Tue, 24 Apr 2018 08:47:03 -0500")
success = json.UpdateNumber("test.StartLoggingTime","1446834998.695")
success = json.UpdateNumber("test.Expiration","1442877512.0")
success = json.UpdateInt("test.StartTime",1518867432)

Debug.Print json.Emit()

' We've built the following JSON:

' {
'   "test": {
'     "timestamp": "2018-01-30T20:35:00Z",
'     "rfc822": "Tue, 24 Apr 2018 08:47:03 -0500",
'     "dateStrings": [
'       "2018-01-30T20:35:00Z",
'       "Tue, 24 Apr 2018 08:47:03 -0500"
'     ],
'     "StartLoggingTime": 1446834998.695,
'     "Expiration": 1442877512.0,
'     "StartTime": 1518867432
'   }
' }

' Use the DateOf and DtOf methods to load Chilkat date/time objects with the date/time values.
' The CkDateTime object is primarily for loading a date/time from numerous formats, and then getting
' the date/time in various formats.  Thus, it's primarly for date/time format conversion.
' The DtObj object holds a date/time where the individual components (day, month, year, hour, minutes, etc.) are 
' immediately accessible as integers.
Dim dateTime As New CkDateTime
Dim dt As New DtObj
Dim getAsLocal As Long
getAsLocal = 0

' Load the date/time at test.timestamp into the dateTime object.
success = json.DateOf("test.timestamp",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)
Debug.Print dateTime.GetAsUnixTime(0)
Debug.Print dateTime.GetAsRfc822(getAsLocal)

success = json.DateOf("test.rfc822",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

json.I = 0
success = json.DateOf("test.dateStrings[i]",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

json.I = 1
success = json.DateOf("test.dateStrings[i]",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

success = json.DateOf("test.StartLoggingTime",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

success = json.DateOf("test.Expiration",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

success = json.DateOf("test.StartTime",dateTime)
Debug.Print dateTime.GetAsTimestamp(getAsLocal)

' Output so far:

' 	2018-01-30T20:35:00Z
' 	1517344500
' 	Tue, 30 Jan 2018 20:35:00 GMT
' 	2018-04-24T13:47:03Z
' 	2018-01-30T20:35:00Z
' 	2018-04-24T13:47:03Z
' 	2015-11-07T00:36:38Z
' 	2015-09-22T04:18:32Z
' 	2018-02-17T17:37:12Z

' Now load the date/time strings into the dt object:
success = json.DtOf("test.timestamp",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

success = json.DtOf("test.rfc822",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

json.I = 0
success = json.DtOf("test.dateStrings[i]",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

json.I = 1
success = json.DtOf("test.dateStrings[i]",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

success = json.DtOf("test.StartLoggingTime",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

success = json.DtOf("test.Expiration",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

success = json.DtOf("test.StartTime",getAsLocal,dt)
Debug.Print "month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute

' Output:

' month=1, day=30, year=2018, hour=20, minute=35
' month=4, day=24, year=2018, hour=13, minute=47
' month=1, day=30, year=2018, hour=20, minute=35
' month=4, day=24, year=2018, hour=13, minute=47
' month=11, day=6, year=2015, hour=18, minute=36
' month=9, day=21, year=2015, hour=23, minute=18
' month=2, day=17, year=2018, hour=11, minute=37