(Visual FoxPro) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loDt
LOCAL b

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')

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

* Subtract 10 minutes, making the date 10 minutes in the past.
loDt.AddSeconds(-600)
? "10 minutes ago: " + loDt.GetAsTimestamp(1)

* Is the date/time older than 10 seconds?
b = loDt.OlderThan(10,"seconds")
? "Older than 10 seconds: " + STR(b)

* Is the date/time older than 5 minutes?
b = loDt.OlderThan(5,"minutes")
? "Older than 5 minutes: " + STR(b)

* Is the date/time older than 15 minutes?
b = loDt.OlderThan(15,"minutes")
? "Older than 15 minutes: " + STR(b)

* Is the date/time older than 1 hour?
b = loDt.OlderThan(1,"hour")
? "Older than 1 hour: " + STR(b)

* Is the date/time older than 1 day?
b = loDt.OlderThan(1,"day")
? "Older than 1 day: " + STR(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

RELEASE loDt