(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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
$json = chilkat::CkJsonObject->new();

$success = $json->Load("{ \"AchievementDate\":\"/Date(1540229468330-0500)/\"}");

$dt = chilkat::CkDateTime->new();
$success = $json->DateOf("AchievementDate",$dt);
if ($success != 1) {
    print "Unable to parse a date/time." . "\r\n";
    exit;
}

# Show the date in different formats:
$bLocal = 1;
print "RFC822: " . $dt->getAsRfc822($bLocal) . "\r\n";
print "Timestamp: " . $dt->getAsTimestamp($bLocal) . "\r\n";
print "YYYY-MM-DD: " . $dt->getAsIso8601("YYYY-MM-DD",$bLocal) . "\r\n";

# Get integer values for year, month, day, etc.
# dtObj is a DtObj
$dtObj = $dt->GetDtObj($bLocal);
print "year: " . $dtObj->get_Year() . "\r\n";
print "month: " . $dtObj->get_Month() . "\r\n";
print "day: " . $dtObj->get_Day() . "\r\n";
print "hour: " . $dtObj->get_Hour() . "\r\n";
print "minute: " . $dtObj->get_Minute() . "\r\n";
print "seconds: " . $dtObj->get_Second() . "\r\n";

# 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