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

use chilkat();

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

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

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

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

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

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

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

# Does the date/time expire within 1 day?
$b = $dt->ExpiresWithin(1,"day");
print "Expires within 1 day: " . $b . "\r\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