Tcl

Date/Time Older-Than N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is older than the current time by N seconds, minutes, hours, or days. Tcl

load ./chilkat.dll

set dt [new_CkDateTime]

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

# Subtract 10 minutes, making the date 10 minutes in the past.
CkDateTime_AddSeconds $dt -600
puts "10 minutes ago: [CkDateTime_getAsTimestamp $dt 1]"

# Is the date/time older than 10 seconds?
set b [CkDateTime_OlderThan $dt 10 "seconds"]
puts "Older than 10 seconds: $b"

# Is the date/time older than 5 minutes?
set b [CkDateTime_OlderThan $dt 5 "minutes"]
puts "Older than 5 minutes: $b"

# Is the date/time older than 15 minutes?
set b [CkDateTime_OlderThan $dt 15 "minutes"]
puts "Older than 15 minutes: $b"

# Is the date/time older than 1 hour?
set b [CkDateTime_OlderThan $dt 1 "hour"]
puts "Older than 1 hour: $b"

# Is the date/time older than 1 day?
set b [CkDateTime_OlderThan $dt 1 "day"]
puts "Older than 1 day: $b"

# Output:

# 	Now: 2017-05-05T23:33:06-0500
# 	10 minutes ago: 2017-05-05T23:23:06-0500
# 	Older than 10 seconds: True
# 	Older than 5 minutes: True
# 	Older than 15 minutes: False
# 	Older than 1 hour: False
# 	Older than 1 day: False

delete_CkDateTime $dt