B4X 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. B4X

Dim success As Boolean = False

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

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

Dim dt As ChilkatDateTime
dt.Initialize
success = json.DateOf("AchievementDate", dt)
If success <> True Then
    Log("Unable to parse a date/time.")
    Return
End If


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

'  Get integer values for year, month, day, etc.
Dim dtObj As ChilkatDtObj
dtObj.Initialize
dt.ToDtObj(bLocal, dtObj)

Log("year: " & dtObj.Year)
Log("month: " & dtObj.Month)
Log("day: " & dtObj.Day)
Log("hour: " & dtObj.Hour)
Log("minute: " & dtObj.Minute)
Log("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