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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# Parse Microsoft JSON Dates (AJAX Dates)
$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 = chilkat::CkDtObj->new();
$dt->ToDtObj($bLocal,$dtObj);

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