(VBScript) 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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt = CreateObject("Chilkat.CkDateTime")

' Set to the current system date/time.
success = dt.SetFromCurrentSystemTime()
outFile.WriteLine("Now: " & dt.GetAsTimestamp(1))

' Subtract 10 minutes, making the date 10 minutes in the past.
success = dt.AddSeconds(-600)
outFile.WriteLine("10 minutes ago: " & dt.GetAsTimestamp(1))

' Is the date/time older than 10 seconds?
b = dt.OlderThan(10,"seconds")
outFile.WriteLine("Older than 10 seconds: " & b)

' Is the date/time older than 5 minutes?
b = dt.OlderThan(5,"minutes")
outFile.WriteLine("Older than 5 minutes: " & b)

' Is the date/time older than 15 minutes?
b = dt.OlderThan(15,"minutes")
outFile.WriteLine("Older than 15 minutes: " & b)

' Is the date/time older than 1 hour?
b = dt.OlderThan(1,"hour")
outFile.WriteLine("Older than 1 hour: " & b)

' Is the date/time older than 1 day?
b = dt.OlderThan(1,"day")
outFile.WriteLine("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

outFile.Close