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

use strict;
use warnings;
use Chilkat2;

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

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

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

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

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

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

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

# Is the date/time older than 1 day?
$b = $dt->OlderThan(1, 'day');
print 'Older than 1 day: ', ($b ? 1 : 0), "\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