(Visual FoxPro) 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

LOCAL loJson
LOCAL lnSuccess
LOCAL loDt
LOCAL lnBLocal
LOCAL loDtObj

* 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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

lnSuccess = loJson.Load('{ "AchievementDate":"/Date(1540229468330-0500)/"}')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
lnSuccess = loJson.DateOf("AchievementDate",loDt)
IF (lnSuccess <> 1) THEN
    ? "Unable to parse a date/time."
    RELEASE loJson
    RELEASE loDt
    CANCEL
ENDIF

* Show the date in different formats:
lnBLocal = 1
? "RFC822: " + loDt.GetAsRfc822(lnBLocal)
? "Timestamp: " + loDt.GetAsTimestamp(lnBLocal)
? "YYYY-MM-DD: " + loDt.GetAsIso8601("YYYY-MM-DD",lnBLocal)

* Get integer values for year, month, day, etc.
loDtObj = loDt.GetDtObj(lnBLocal)
? "year: " + STR(loDtObj.Year)
? "month: " + STR(loDtObj.Month)
? "day: " + STR(loDtObj.Day)
? "hour: " + STR(loDtObj.Hour)
? "minute: " + STR(loDtObj.Minute)
? "seconds: " + STR(loDtObj.Second)

RELEASE loDtObj

* 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

RELEASE loJson
RELEASE loDt