Tcl

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.

Tcl

load ./chilkat.dll

set dateTime [new_CkDateTime]

CkDateTime_SetFromCurrentSystemTime $dateTime

puts "Current time: [CkDateTime_getAsTimestamp $dateTime 0]"

CkDateTime_AddSeconds $dateTime 1
puts "Current time + 1 second: [CkDateTime_getAsTimestamp $dateTime 0]"

CkDateTime_AddSeconds $dateTime -2
puts "Current time - 1 second: [CkDateTime_getAsTimestamp $dateTime 0]"

# Add 30 days (60 * 60 * 24 * 30)
CkDateTime_AddSeconds $dateTime [expr 60 * [expr 60 * [expr 24 * 30]]]
puts "Current time + 30 days: [CkDateTime_getAsTimestamp $dateTime 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

delete_CkDateTime $dateTime