Visual Basic 6.0 Requires Chilkat v11.0.0+

Parse a Microsoft JSON Date (MS AJAX Date)

See more JSON Examples

Demonstrates how to parse a Microsoft JSON Date, also known as an MSAJAX date. Visual Basic 6.0

Dim success As Long
success = 0

'  Parse Microsoft JSON Dates (AJAX Dates)
Dim json As New ChilkatJsonObject

success = json.Load("{ ""AchievementDate"":""/Date(1540229468330-0500)/""}")

Dim dt As New CkDateTime
success = json.DateOf("AchievementDate",dt)
If (success <> 1) Then
    Debug.Print "Unable to parse a date/time."
    Exit Sub
End If

'  Show the date in different formats:
Dim bLocal As Long
bLocal = 1
Debug.Print "RFC822: " & dt.GetAsRfc822(bLocal)
Debug.Print "Timestamp: " & dt.GetAsTimestamp(bLocal)
Debug.Print "YYYY-MM-DD: " & dt.GetAsIso8601("YYYY-MM-DD",bLocal)

'  Get integer values for year, month, day, etc.
Dim dtObj As New DtObj
dt.ToDtObj bLocal,dtObj

Debug.Print "year: " & dtObj.Year
Debug.Print "month: " & dtObj.Month
Debug.Print "day: " & dtObj.Day
Debug.Print "hour: " & dtObj.Hour
Debug.Print "minute: " & dtObj.Minute
Debug.Print "seconds: " & dtObj.Second

'  Sample output:
'  RFC822: Mon, 22 Oct 2018 17:31:08 -0500
'  Timestamp: 2018-10-22T17:31:08-05:00
'  YYYY-MM-DD: 2018-10-22
'  year: 2018
'  month: 10
'  day: 22
'  hour: 17
'  minute: 31
'  seconds: 8