Perl Requires Chilkat v11.0.0+

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

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