Perl Requires Chilkat v9.5.0.65+

DateTime - Add or Subtract Seconds

Demonstrates the AddSeconds method to add or subtract a number of seconds from a date/time. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $dateTime = Chilkat2::DateTime->new;

$dateTime->SetFromCurrentSystemTime();

print 'Current time: ', $dateTime->GetAsTimestamp(0), "\n";

$dateTime->AddSeconds(1);
print 'Current time + 1 second: ', $dateTime->GetAsTimestamp(0), "\n";

$dateTime->AddSeconds(-2);
print 'Current time - 1 second: ', $dateTime->GetAsTimestamp(0), "\n";

# Add 30 days (60 * 60 * 24 * 30)
$dateTime->AddSeconds(60 * 60 * 24 * 30);
print 'Current time + 30 days: ', $dateTime->GetAsTimestamp(0), "\n";

# Sample output for test run on 2-Dec-2016:

#     Current time: 2016-12-02T12:59:13Z
#     Current time + 1 second: 2016-12-02T12:59:14Z
#     Current time - 1 second: 2016-12-02T12:59:12Z
#     Current time + 30 days: 2017-01-01T12:59:12Z