(Xojo Plugin) Parse a Microsoft JSON Date (MS AJAX Date)

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

Note: This example requires Chilkat v9.5.0.76 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// Note: This example requires Chilkat v9.5.0.76 or greater.
// The ability to automatically parse Microsoft JSON Dates (AJAX Dates) was added in v9.5.0.76
Dim json As New Chilkat.JsonObject

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

Dim dt As New Chilkat.CkDateTime
success = json.DateOf("AchievementDate",dt)
If (success <> True) Then
    System.DebugLog("Unable to parse a date/time.")
    Return
End If

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

// Get integer values for year, month, day, etc.
Dim dtObj As Chilkat.DtObj
dtObj = dt.GetDtObj(bLocal)
System.DebugLog("year: " + Str(dtObj.Year))
System.DebugLog("month: " + Str(dtObj.Month))
System.DebugLog("day: " + Str(dtObj.Day))
System.DebugLog("hour: " + Str(dtObj.Hour))
System.DebugLog("minute: " + Str(dtObj.Minute))
System.DebugLog("seconds: " + Str(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