(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoDateTime
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComCkDateTime)) To hoDateTime
    If (Not(IsComObjectCreated(hoDateTime))) Begin
        Send CreateComObject of hoDateTime
    End

    Get ComSetFromCurrentSystemTime Of hoDateTime To iSuccess

    Get ComGetAsTimestamp Of hoDateTime False To sTemp1
    Showln "Current time: " sTemp1

    Get ComAddSeconds Of hoDateTime 1 To iSuccess
    Get ComGetAsTimestamp Of hoDateTime False To sTemp1
    Showln "Current time + 1 second: " sTemp1

    Get ComAddSeconds Of hoDateTime -2 To iSuccess
    Get ComGetAsTimestamp Of hoDateTime False To sTemp1
    Showln "Current time - 1 second: " sTemp1

    // Add 30 days (60 * 60 * 24 * 30)
    Get ComAddSeconds Of hoDateTime (60 * 60 * 24 * 30) To iSuccess
    Get ComGetAsTimestamp Of hoDateTime False To sTemp1
    Showln "Current time + 30 days: " sTemp1

    // 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


End_Procedure