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.

VBScript

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

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