(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkDateTime.pb"

Procedure ChilkatExample()

    dateTime.i = CkDateTime::ckCreate()
    If dateTime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkDateTime::ckSetFromCurrentSystemTime(dateTime)

    Debug "Current time: " + CkDateTime::ckGetAsTimestamp(dateTime,0)

    CkDateTime::ckAddSeconds(dateTime,1)
    Debug "Current time + 1 second: " + CkDateTime::ckGetAsTimestamp(dateTime,0)

    CkDateTime::ckAddSeconds(dateTime,-2)
    Debug "Current time - 1 second: " + CkDateTime::ckGetAsTimestamp(dateTime,0)

    ; Add 30 days (60 * 60 * 24 * 30)
    CkDateTime::ckAddSeconds(dateTime,60 * 60 * 24 * 30)
    Debug "Current time + 30 days: " + CkDateTime::ckGetAsTimestamp(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


    CkDateTime::ckDispose(dateTime)


    ProcedureReturn
EndProcedure