(VBScript) DateTime - Add or Subtract Seconds

Demonstrates the AddSeconds method to add or subtract a number of seconds from a date/time.

Note: This example is only valid in Chilkat v9.5.0.65 or later.

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 dateTime = CreateObject("Chilkat.CkDateTime")

success = dateTime.SetFromCurrentSystemTime()

outFile.WriteLine("Current time: " & dateTime.GetAsTimestamp(0))

success = dateTime.AddSeconds(1)
outFile.WriteLine("Current time + 1 second: " & dateTime.GetAsTimestamp(0))

success = dateTime.AddSeconds(-2)
outFile.WriteLine("Current time - 1 second: " & dateTime.GetAsTimestamp(0))

' Add 30 days (60 * 60 * 24 * 30)
success = dateTime.AddSeconds(60 * 60 * 24 * 30)
outFile.WriteLine("Current time + 30 days: " & dateTime.GetAsTimestamp(0))

' Sample output for test run on 2-Dec-2016: 

' 	Current time: 2016-12-02T12:59:13Z
' 	Current time + 1 second: 2016-12-02T12:59:14Z
' 	Current time - 1 second: 2016-12-02T12:59:12Z
' 	Current time + 30 days: 2017-01-01T12:59:12Z

outFile.Close