(VBScript) DateTime - Get as Unix Time String

Demonstrates the GetAsUnixTimeStr method.

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

' (in seconds since the epoch: 00:00:00 UTC on 1 January 1970)
bLocal = 1
outFile.WriteLine("Unix time: " & dateTime.GetAsUnixTimeStr(bLocal))

' Sample output for test run on 2-Dec-2016: 

'     Unix time: 1480661608

outFile.Close