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

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

set dateTime = CreateObject("Chilkat.CkDateTime")
success = dateTime.SetFromTimestamp(strTimestamp)

' Get a DtObj in the local timezone.
bLocalTimezone = 1
set dt = CreateObject("Chilkat.DtObj")
dateTime.ToDtObj bLocalTimezone,dt

' 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
dateTime.ToDtObj bLocalTimezone,dt

' 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