(Visual Basic 6.0) Extract Timestamp from ULID

See more ULID/UUID Examples

Extract the date/time from a ULID.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim ulid As String
ulid = "01GRH14AA82EY9A7S99YYF2QDY"

Dim dt As New CkDateTime

' Unix timestamps stored in ULIDs should be UTC...
Dim bLocal As Long
bLocal = 0
' Set the CkDateTime from the timestamp contained in the ULID
Dim success As Long
success = dt.SetFromUlid(bLocal,ulid)
If (success = 0) Then
    Debug.Print "ULID was not valid."
    Exit Sub
End If

' You can now get the date/time in any desired format.
' For example:
Debug.Print "Unix timestamp = " & dt.GetAsUnixTime(bLocal)
Debug.Print "RFC822 = " & dt.GetAsRfc822(bLocal)
Debug.Print "Timestamp = " & dt.GetAsTimestamp(bLocal)

' Sample output:

' Unix timestamp = 1675608861
' RFC822 = Sun, 05 Feb 2023 14:54:21 GMT
' Timestamp = 2023-02-05T14:54:21Z