(PureBasic) Generate ULID

See more ULID/UUID Examples

Generate a ULID using a specified timestamp or the current system date timestamp.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkDateTime.pb"

Procedure ChilkatExample()

    dt.i = CkDateTime::ckCreate()
    If dt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set dt to the current system date/time.
    CkDateTime::ckSetFromCurrentSystemTime(dt)

    ; Generate a ULID for the current UTC date/time.
    ; (i.e. the current UTC UNIX-time)
    utc.i = 1
    ulid.s = CkDateTime::ckUlidGenerate(dt,utc)
    Debug ulid

    ; example result: 01GRGCH4J88RECEN4D4VK4F629

    ; Generate a ULID using the local timezone's current time.
    utc = 0
    ulid = CkDateTime::ckUlidGenerate(dt,utc)
    Debug ulid

    ; example result: 01GRH14AA82EY9A7S99YYF2QDY

    ; -----------------------------------------------
    ; To generate a ULID using a specific UNIX timestamp

    ; For example, the Unix timestamp for Sun, 05 Feb 2023 14:57:46 GMT
    ; is 1675609066

    ; For more information about the Epoch Unix Timestamp, see Epoch Unix Timestamp

    ; To generate a ULID from a specified date/time, set the CkDateTime and then generate the ULID.
    dt2.i = CkDateTime::ckCreate()
    If dt2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    utc = 1
    CkDateTime::ckSetFromUnixTime(dt2,utc,1675609066)
    ulid = CkDateTime::ckUlidGenerate(dt2,utc)
    Debug ulid

    ; example result: 01GRH1AJGG3P5K04DJHN3QJCX3


    CkDateTime::ckDispose(dt)
    CkDateTime::ckDispose(dt2)


    ProcedureReturn
EndProcedure