B4X

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.

B4X

Dim dateTime As ChilkatDateTime
dateTime.Initialize

dateTime.SetFromCurrentSystemTime

Log("Current time: " & dateTime.GetAsTimestamp(False))

dateTime.AddSeconds(1)
Log("Current time + 1 second: " & dateTime.GetAsTimestamp(False))

dateTime.AddSeconds(-2)
Log("Current time - 1 second: " & dateTime.GetAsTimestamp(False))

'  Add 30 days (60 * 60 * 24 * 30)
dateTime.AddSeconds(60 * 60 * 24 * 30)
Log("Current time + 30 days: " & dateTime.GetAsTimestamp(False))


'  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