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

use strict;
use warnings;
use Chilkat2;

# Parse Microsoft JSON Dates (AJAX Dates)
my $json = Chilkat2::JsonObject->new;

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

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

# Show the date in different formats:
my $bLocal = 1;
print 'RFC822: ', $dt->GetAsRfc822($bLocal), "\n";
print 'Timestamp: ', $dt->GetAsTimestamp($bLocal), "\n";
print 'YYYY-MM-DD: ', $dt->GetAsIso8601('YYYY-MM-DD', $bLocal), "\n";

# Get integer values for year, month, day, etc.
my $dtObj = Chilkat2::DtObj->new;
$dt->ToDtObj($bLocal, $dtObj);

print 'year: ', $dtObj->Year, "\n";
print 'month: ', $dtObj->Month, "\n";
print 'day: ', $dtObj->Day, "\n";
print 'hour: ', $dtObj->Hour, "\n";
print 'minute: ', $dtObj->Minute, "\n";
print 'seconds: ', $dtObj->Second, "\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