(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Json
integer li_Success
oleobject loo_Dt
integer li_BLocal
oleobject loo_DtObj

// 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
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Json.Load("{ ~"AchievementDate~":~"/Date(1540229468330-0500)/~"}")

loo_Dt = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

li_Success = loo_Json.DateOf("AchievementDate",loo_Dt)
if li_Success <> 1 then
    Write-Debug "Unable to parse a date/time."
    destroy loo_Json
    destroy loo_Dt
    return
end if

// Show the date in different formats:
li_BLocal = 1
Write-Debug "RFC822: " + loo_Dt.GetAsRfc822(li_BLocal)
Write-Debug "Timestamp: " + loo_Dt.GetAsTimestamp(li_BLocal)
Write-Debug "YYYY-MM-DD: " + loo_Dt.GetAsIso8601("YYYY-MM-DD",li_BLocal)

// Get integer values for year, month, day, etc.
loo_DtObj = loo_Dt.GetDtObj(li_BLocal)
Write-Debug "year: " + string(loo_DtObj.Year)
Write-Debug "month: " + string(loo_DtObj.Month)
Write-Debug "day: " + string(loo_DtObj.Day)
Write-Debug "hour: " + string(loo_DtObj.Hour)
Write-Debug "minute: " + string(loo_DtObj.Minute)
Write-Debug "seconds: " + string(loo_DtObj.Second)

destroy loo_DtObj

// 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


destroy loo_Json
destroy loo_Dt