(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim success As Boolean

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

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

Debug.WriteLine(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 Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False

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

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

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

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

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

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

success = json.DateOf("test.StartTime",dateTime)
Debug.WriteLine(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.WriteLine("month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute)

success = json.DtOf("test.rfc822",getAsLocal,dt)
Debug.WriteLine("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.WriteLine("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.WriteLine("month=" & dt.Month & ", day=" & dt.Day & ", year=" & dt.Year & ", hour=" & dt.Hour & ", minute=" _
     & dt.Minute)

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

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

success = json.DtOf("test.StartTime",getAsLocal,dt)
Debug.WriteLine("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