Perl

Date/Time Older-Than N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is older than the current time by N seconds, minutes, hours, or days. Perl

use chilkat();

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

# Set to the current system date/time.
$dt->SetFromCurrentSystemTime();
print "Now: " . $dt->getAsTimestamp(1) . "\r\n";

# Subtract 10 minutes, making the date 10 minutes in the past.
$dt->AddSeconds(-600);
print "10 minutes ago: " . $dt->getAsTimestamp(1) . "\r\n";

# Is the date/time older than 10 seconds?
$b = $dt->OlderThan(10,"seconds");
print "Older than 10 seconds: " . $b . "\r\n";

# Is the date/time older than 5 minutes?
$b = $dt->OlderThan(5,"minutes");
print "Older than 5 minutes: " . $b . "\r\n";

# Is the date/time older than 15 minutes?
$b = $dt->OlderThan(15,"minutes");
print "Older than 15 minutes: " . $b . "\r\n";

# Is the date/time older than 1 hour?
$b = $dt->OlderThan(1,"hour");
print "Older than 1 hour: " . $b . "\r\n";

# Is the date/time older than 1 day?
$b = $dt->OlderThan(1,"day");
print "Older than 1 day: " . $b . "\r\n";

# Output:

# 	Now: 2017-05-05T23:33:06-0500
# 	10 minutes ago: 2017-05-05T23:23:06-0500
# 	Older than 10 seconds: True
# 	Older than 5 minutes: True
# 	Older than 15 minutes: False
# 	Older than 1 hour: False
# 	Older than 1 day: False