Perl

DateTime - Add or Subtract Seconds

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

Note: This example is only valid in Chilkat v9.5.0.65 or later.

Perl

use chilkat();

$dateTime = chilkat::CkDateTime->new();

$dateTime->SetFromCurrentSystemTime();

print "Current time: " . $dateTime->getAsTimestamp(0) . "\r\n";

$dateTime->AddSeconds(1);
print "Current time + 1 second: " . $dateTime->getAsTimestamp(0) . "\r\n";

$dateTime->AddSeconds(-2);
print "Current time - 1 second: " . $dateTime->getAsTimestamp(0) . "\r\n";

# Add 30 days (60 * 60 * 24 * 30)
$dateTime->AddSeconds(60 * 60 * 24 * 30);
print "Current time + 30 days: " . $dateTime->getAsTimestamp(0) . "\r\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