Perl

Date/Time Expires Within N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is within N seconds, minutes, hours, or days of the current system time. 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";

# Add 10 minutes, making the date 10 minutes in the future.
$dt->AddSeconds(600);
print '10 minutes from now: ', $dt->GetAsTimestamp(1), "\n";

# Is the date/time within 10 seconds of expiration (i.e. within 10 seconds of now)?
my $b = $dt->ExpiresWithin(10, 'seconds');
print 'Expires within 10 seconds: ', ($b ? 1 : 0), "\n";

# Does the date/time expire within 5 minutes?
$b = $dt->ExpiresWithin(5, 'minutes');
print 'Expires within 5 minutes: ', ($b ? 1 : 0), "\n";

# Does the date/time expire within 15 minutes?
$b = $dt->ExpiresWithin(15, 'minutes');
print 'Expires within 15 minutes: ', ($b ? 1 : 0), "\n";

# Does the date/time expire within 1 hour?
$b = $dt->ExpiresWithin(1, 'hour');
print 'Expires within 1 hour: ', ($b ? 1 : 0), "\n";

# Does the date/time expire within 1 day?
$b = $dt->ExpiresWithin(1, 'day');
print 'Expires within 1 day: ', ($b ? 1 : 0), "\n";

# Output:

#     Now: 2017-05-05T23:48:00-0500
#     10 minutes from now: 2017-05-05T23:58:00-0500
#     Expires within 10 seconds: False
#     Expires within 5 minutes: False
#     Expires within 15 minutes: True
#     Expires within 1 hour: True
#     Expires within 1 day: True