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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dateTime = CreateObject("Chilkat.CkDateTime")

success = dateTime.SetFromCurrentSystemTime()

bLocal = 0
outFile.WriteLine("YYYY-MM-DD: " & dateTime.GetAsIso8601("YYYY-MM-DD",bLocal))
outFile.WriteLine("YYYY-MM-DDThh:mmTZD: " & dateTime.GetAsIso8601("YYYY-MM-DDThh:mmTZD",bLocal))
outFile.WriteLine("YYYY-MM-DDThh:mm:ssTZD: " & dateTime.GetAsIso8601("YYYY-MM-DDThh:mm:ssTZD",bLocal))

' 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

outFile.Close