(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

' 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
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject


success = json.Load("{ ""AchievementDate"":""/Date(1540229468330-0500)/""}")

Dim dt As Chilkat.CkDateTime
Set dt = Chilkat.NewCkDateTime
success = json.DateOf("AchievementDate",dt)
If (success <> True) Then
    Debug.Print "Unable to parse a date/time."
    Exit Sub
End If

' Show the date in different formats:

bLocal = True
Debug.Print "RFC822: "; dt.GetAsRfc822(bLocal)
Debug.Print "Timestamp: "; dt.GetAsTimestamp(bLocal)
Debug.Print "YYYY-MM-DD: "; dt.GetAsIso8601("YYYY-MM-DD",bLocal)

' Get integer values for year, month, day, etc.

Set dtObj = dt.GetDtObj(bLocal)
Debug.Print "year: "; dtObj.Year
Debug.Print "month: "; dtObj.Month
Debug.Print "day: "; dtObj.Day
Debug.Print "hour: "; dtObj.Hour
Debug.Print "minute: "; dtObj.Minute
Debug.Print "seconds: "; dtObj.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