(VBScript) How to Parse a TimeStamp (such as 2016-11-11T14:32:17.0908971Z)

Timestamps are frequently used in REST API responses. This example demonstrates how to parse a timestamp string to get at the date/time components in the local timezone or in the GMT/UTC timezone.

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)

' Let's say we have a timestamp string such as 2016-11-11T14:32:17.0908971Z
strTimestamp = "2016-11-11T14:32:17.0908971Z"

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

' Get a DtObj in the local timezone.
bLocalTimezone = 1
' dt is a Chilkat.DtObj
Set dt = dateTime.GetDtObj(bLocalTimezone)

' Get the individual date/time components
outFile.WriteLine("-- Local Time --")
outFile.WriteLine("Year: " & dt.Year)
outFile.WriteLine("Month: " & dt.Month)
outFile.WriteLine("Day: " & dt.Day)
outFile.WriteLine("Hour: " & dt.Hour)
outFile.WriteLine("Minutes: " & dt.Minute)
outFile.WriteLine("Seconds: " & dt.Second)

' Get a DtObj in the GMT/UTC timezone.
bLocalTimezone = 0
' dt is a Chilkat.DtObj
Set dt = dateTime.GetDtObj(bLocalTimezone)

' Get the individual date/time components
outFile.WriteLine("-- UTC Time --")
outFile.WriteLine("Year: " & dt.Year)
outFile.WriteLine("Month: " & dt.Month)
outFile.WriteLine("Day: " & dt.Day)
outFile.WriteLine("Hour: " & dt.Hour)
outFile.WriteLine("Minutes: " & dt.Minute)
outFile.WriteLine("Seconds: " & dt.Second)


outFile.Close