(Visual FoxPro) 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

LOCAL lcUlid
LOCAL loDt
LOCAL lnBLocal
LOCAL lnSuccess

lcUlid = "01GRH14AA82EY9A7S99YYF2QDY"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')

* Unix timestamps stored in ULIDs should be UTC...
lnBLocal = 0
* Set the CkDateTime from the timestamp contained in the ULID
lnSuccess = loDt.SetFromUlid(lnBLocal,lcUlid)
IF (lnSuccess = 0) THEN
    ? "ULID was not valid."
    RELEASE loDt
    CANCEL
ENDIF

* You can now get the date/time in any desired format.
* For example:
? "Unix timestamp = " + STR(loDt.GetAsUnixTime(lnBLocal))
? "RFC822 = " + loDt.GetAsRfc822(lnBLocal)
? "Timestamp = " + loDt.GetAsTimestamp(lnBLocal)

* Sample output:

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

RELEASE loDt