(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 v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loJson
LOCAL loDt
LOCAL lnBLocal
LOCAL loDtObj

lnSuccess = 0

* Parse Microsoft JSON Dates (AJAX Dates)
loJson = CreateObject('Chilkat.JsonObject')

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

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 = CreateObject('Chilkat.DtObj')
loDt.ToDtObj(lnBLocal,loDtObj)

? "year: " + STR(loDtObj.Year)
? "month: " + STR(loDtObj.Month)
? "day: " + STR(loDtObj.Day)
? "hour: " + STR(loDtObj.Hour)
? "minute: " + STR(loDtObj.Minute)
? "seconds: " + STR(loDtObj.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

RELEASE loJson
RELEASE loDt
RELEASE loDtObj