(DataFlex) DateTime - Get in ISO 8601 Compatible Format

Demonstrates the GetAsIso8601 method to return the date/time in an ISO 8601 compatible format.

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
    Boolean iBLocal
    String sTemp1

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

    Get ComSetFromCurrentSystemTime Of hoDateTime To iSuccess

    Move False To iBLocal
    Get ComGetAsIso8601 Of hoDateTime "YYYY-MM-DD" iBLocal To sTemp1
    Showln "YYYY-MM-DD: " sTemp1
    Get ComGetAsIso8601 Of hoDateTime "YYYY-MM-DDThh:mmTZD" iBLocal To sTemp1
    Showln "YYYY-MM-DDThh:mmTZD: " sTemp1
    Get ComGetAsIso8601 Of hoDateTime "YYYY-MM-DDThh:mm:ssTZD" iBLocal To sTemp1
    Showln "YYYY-MM-DDThh:mm:ssTZD: " sTemp1

    // Sample output:

    // 	YYYY-MM-DD: 2016-12-02
    // 	YYYY-MM-DDThh:mmTZD: 2016-12-02T07:04Z
    // 	YYYY-MM-DDThh:mm:ssTZD: 2016-12-02T07:04:34Z


End_Procedure