Tcl

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

load ./chilkat.dll

set dt [new_CkDateTime]

# Set to the current system date/time.
CkDateTime_SetFromCurrentSystemTime $dt
puts "Now: [CkDateTime_getAsTimestamp $dt 1]"

# Add 10 minutes, making the date 10 minutes in the future.
CkDateTime_AddSeconds $dt 600
puts "10 minutes from now: [CkDateTime_getAsTimestamp $dt 1]"

# Is the date/time within 10 seconds of expiration (i.e. within 10 seconds of now)?
set b [CkDateTime_ExpiresWithin $dt 10 "seconds"]
puts "Expires within 10 seconds: $b"

# Does the date/time expire within 5 minutes?
set b [CkDateTime_ExpiresWithin $dt 5 "minutes"]
puts "Expires within 5 minutes: $b"

# Does the date/time expire within 15 minutes?
set b [CkDateTime_ExpiresWithin $dt 15 "minutes"]
puts "Expires within 15 minutes: $b"

# Does the date/time expire within 1 hour?
set b [CkDateTime_ExpiresWithin $dt 1 "hour"]
puts "Expires within 1 hour: $b"

# Does the date/time expire within 1 day?
set b [CkDateTime_ExpiresWithin $dt 1 "day"]
puts "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

delete_CkDateTime $dt