Visual Basic 6.0

Get Current Date/Time as Timestamp (YYYY-MM-DDThh:mm:ssTZD)

Demonstrates how to get the current system date/time in YYYY-MM-DDThh:mm:ssTZD format. Visual Basic 6.0

Dim success As Long
success = 0

Dim dt As New CkDateTime

success = dt.SetFromCurrentSystemTime()

' Get a UTC time.
Dim bLocal As Long
bLocal = 0
Dim timestamp As String
timestamp = dt.GetAsTimestamp(bLocal)
Debug.Print "Current UTC Time: " & timestamp

' Get a local time.
bLocal = 1
timestamp = dt.GetAsTimestamp(bLocal)
Debug.Print "Current Local Time: " & timestamp

' Sample output:
' 
' Current UTC Time: 2022-03-01T00:48:58Z
' Current Local Time: 2022-02-28T18:48:58-06:00