B4X

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

Dim dt As ChilkatDateTime
dt.Initialize

'  Set to the current system date/time.
dt.SetFromCurrentSystemTime
Log("Now: " & dt.GetAsTimestamp(True))

'  Add 10 minutes, making the date 10 minutes in the future.
dt.AddSeconds(600)
Log("10 minutes from now: " & dt.GetAsTimestamp(True))

'  Is the date/time within 10 seconds of expiration (i.e. within 10 seconds of now)?
Dim b As Boolean = dt.ExpiresWithin(10, "seconds")
Log("Expires within 10 seconds: " & b)

'  Does the date/time expire within 5 minutes?
b = dt.ExpiresWithin(5, "minutes")
Log("Expires within 5 minutes: " & b)

'  Does the date/time expire within 15 minutes?
b = dt.ExpiresWithin(15, "minutes")
Log("Expires within 15 minutes: " & b)

'  Does the date/time expire within 1 hour?
b = dt.ExpiresWithin(1, "hour")
Log("Expires within 1 hour: " & b)

'  Does the date/time expire within 1 day?
b = dt.ExpiresWithin(1, "day")
Log("Expires within 1 day: " & 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