(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.
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
|
