(VBScript) 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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

ulid = "01GRH14AA82EY9A7S99YYF2QDY"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt = CreateObject("Chilkat.CkDateTime")

' Unix timestamps stored in ULIDs should be UTC...
bLocal = 0
' Set the CkDateTime from the timestamp contained in the ULID
success = dt.SetFromUlid(bLocal,ulid)
If (success = 0) Then
    outFile.WriteLine("ULID was not valid.")
    WScript.Quit
End If

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

' Sample output:

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

outFile.Close