Visual FoxPro

JSON Date Parsing

See more JSON Examples

Demonstrates how to parse date/time strings from JSON.

Note: This example uses the DtOf and DateOf methods introduced in Chilkat v9.5.0.73

Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL loDateTime
LOCAL loDt
LOCAL lnGetAsLocal

lnSuccess = 0

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

* First, let's create JSON containing some date/time strings.
loJson.UpdateString("test.timestamp","2018-01-30T20:35:00Z")
loJson.UpdateString("test.rfc822","Tue, 24 Apr 2018 08:47:03 -0500")
loJson.UpdateString("test.dateStrings[0]","2018-01-30T20:35:00Z")
loJson.UpdateString("test.dateStrings[1]","Tue, 24 Apr 2018 08:47:03 -0500")
loJson.UpdateNumber("test.StartLoggingTime","1446834998.695")
loJson.UpdateNumber("test.Expiration","1442877512.0")
loJson.UpdateInt("test.StartTime",1518867432)

? loJson.Emit()

* We've built the following JSON:

* {
*   "test": {
*     "timestamp": "2018-01-30T20:35:00Z",
*     "rfc822": "Tue, 24 Apr 2018 08:47:03 -0500",
*     "dateStrings": [
*       "2018-01-30T20:35:00Z",
*       "Tue, 24 Apr 2018 08:47:03 -0500"
*     ],
*     "StartLoggingTime": 1446834998.695,
*     "Expiration": 1442877512.0,
*     "StartTime": 1518867432
*   }
* }

* Use the DateOf and DtOf methods to load Chilkat date/time objects with the date/time values.
* The CkDateTime object is primarily for loading a date/time from numerous formats, and then getting
* the date/time in various formats.  Thus, it's primarly for date/time format conversion.
* The DtObj object holds a date/time where the individual components (day, month, year, hour, minutes, etc.) are 
* immediately accessible as integers.
loDateTime = CreateObject('Chilkat.CkDateTime')
loDt = CreateObject('Chilkat.DtObj')
lnGetAsLocal = 0

* Load the date/time at test.timestamp into the dateTime object.
lnSuccess = loJson.DateOf("test.timestamp",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)
? STR(loDateTime.GetAsUnixTime(0))
? loDateTime.GetAsRfc822(lnGetAsLocal)

lnSuccess = loJson.DateOf("test.rfc822",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

loJson.I = 0
lnSuccess = loJson.DateOf("test.dateStrings[i]",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

loJson.I = 1
lnSuccess = loJson.DateOf("test.dateStrings[i]",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

lnSuccess = loJson.DateOf("test.StartLoggingTime",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

lnSuccess = loJson.DateOf("test.Expiration",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

lnSuccess = loJson.DateOf("test.StartTime",loDateTime)
? loDateTime.GetAsTimestamp(lnGetAsLocal)

* Output so far:

* 	2018-01-30T20:35:00Z
* 	1517344500
* 	Tue, 30 Jan 2018 20:35:00 GMT
* 	2018-04-24T13:47:03Z
* 	2018-01-30T20:35:00Z
* 	2018-04-24T13:47:03Z
* 	2015-11-07T00:36:38Z
* 	2015-09-22T04:18:32Z
* 	2018-02-17T17:37:12Z

* Now load the date/time strings into the dt object:
lnSuccess = loJson.DtOf("test.timestamp",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

lnSuccess = loJson.DtOf("test.rfc822",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

loJson.I = 0
lnSuccess = loJson.DtOf("test.dateStrings[i]",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

loJson.I = 1
lnSuccess = loJson.DtOf("test.dateStrings[i]",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

lnSuccess = loJson.DtOf("test.StartLoggingTime",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

lnSuccess = loJson.DtOf("test.Expiration",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

lnSuccess = loJson.DtOf("test.StartTime",lnGetAsLocal,loDt)
? "month=" + STR(loDt.Month) + ", day=" + STR(loDt.Day) + ", year=" + STR(loDt.Year) + ", hour=" + STR(loDt.Hour) + ", minute=" + STR(loDt.Minute)

* Output:

* month=1, day=30, year=2018, hour=20, minute=35
* month=4, day=24, year=2018, hour=13, minute=47
* month=1, day=30, year=2018, hour=20, minute=35
* month=4, day=24, year=2018, hour=13, minute=47
* month=11, day=6, year=2015, hour=18, minute=36
* month=9, day=21, year=2015, hour=23, minute=18
* month=2, day=17, year=2018, hour=11, minute=37

RELEASE loJson
RELEASE loDateTime
RELEASE loDt