(Visual Basic 6.0) 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 dateTime As New CkDateTime

success = dateTime.SetFromCurrentSystemTime()

Debug.Print "Current time: " & dateTime.GetAsTimestamp(0)

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

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

' Add 30 days (60 * 60 * 24 * 30)
success = dateTime.AddSeconds(60 * 60 * 24 * 30)
Debug.Print "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