Xbase++

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. Xbase++

LOCAL oDt
LOCAL b

oDt := CreateObject("Chilkat.CkDateTime")

//  Set to the current system date/time.
oDt:SetFromCurrentSystemTime()
? "Now: " + oDt:GetAsTimestamp(1)

//  Add 10 minutes, making the date 10 minutes in the future.
oDt:AddSeconds(600)
? "10 minutes from now: " + oDt:GetAsTimestamp(1)

//  Is the date/time within 10 seconds of expiration (i.e. within 10 seconds of now)?
b := oDt:ExpiresWithin(10, "seconds")
? "Expires within 10 seconds: " + Str(b)

//  Does the date/time expire within 5 minutes?
b := oDt:ExpiresWithin(5, "minutes")
? "Expires within 5 minutes: " + Str(b)

//  Does the date/time expire within 15 minutes?
b := oDt:ExpiresWithin(15, "minutes")
? "Expires within 15 minutes: " + Str(b)

//  Does the date/time expire within 1 hour?
b := oDt:ExpiresWithin(1, "hour")
? "Expires within 1 hour: " + Str(b)

//  Does the date/time expire within 1 day?
b := oDt:ExpiresWithin(1, "day")
? "Expires within 1 day: " + Str(b)

//  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

oDt:destroy()