Visual Basic 6.0

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. Visual Basic 6.0

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

Dim dateTime As New CkDateTime
success = dateTime.SetFromTimestamp(strTimestamp)

' Get a DtObj in the local timezone.
Dim bLocalTimezone As Long
bLocalTimezone = 1
Dim dt As New DtObj
dateTime.ToDtObj bLocalTimezone,dt

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

' Get a DtObj in the GMT/UTC timezone.
bLocalTimezone = 0
dateTime.ToDtObj bLocalTimezone,dt

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