Lianja

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

llSuccess = .F.

// Parse Microsoft JSON Dates (AJAX Dates)
loJson = createobject("CkJsonObject")

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

loDt = createobject("CkDateTime")
llSuccess = loJson.DateOf("AchievementDate",loDt)
if (llSuccess <> .T.) then
    ? "Unable to parse a date/time."
    release loJson
    release loDt
    return
endif

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

// Get integer values for year, month, day, etc.
loDtObj = createobject("CkDtObj")
loDt.ToDtObj(llBLocal,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