Xojo Plugin

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. Xojo Plugin

Dim dt As New Chilkat.CkDateTime

// Set to the current system date/time.
Dim success As Boolean
success = dt.SetFromCurrentSystemTime()
System.DebugLog("Now: " + dt.GetAsTimestamp(True))

// Add 10 minutes, making the date 10 minutes in the future.
success = dt.AddSeconds(600)
System.DebugLog("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
b = dt.ExpiresWithin(10,"seconds")
System.DebugLog("Expires within 10 seconds: " + Str(b))

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

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

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

// Does the date/time expire within 1 day?
b = dt.ExpiresWithin(1,"day")
System.DebugLog("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