(Visual Basic 6.0) Generate Monotonic ULIDs

See more ULID/UUID Examples

Generate a sequence of monotonic ULIDs all using the same seed time. This code sample generates a series of ULIDs with continuously increasing values.

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim seedDt As New CkDateTime

' You can set the seed time to any desired value.
' In this example, the seed time is set to the current system date/time.
success = seedDt.SetFromCurrentSystemTime()

' Generate the 1st ULID in the series.
' (i.e. the current UTC UNIX-time)
Dim utc As Long
utc = 1
Dim ulid As String
ulid = seedDt.UlidGenerate(utc)
Debug.Print ulid

' Store the ULID in a Chilkat StringBuilder to generate the series.
Dim sbUlid As New ChilkatStringBuilder
success = sbUlid.Append(ulid)

Dim i As Long
i = 0
Do While i < 50
    success = seedDt.UlidIncrement(sbUlid)
    Debug.Print sbUlid.GetAsString()
    i = i + 1
Loop

' Sample output:

' 01GRGH30H8DMQ4F9A0XCTZHPGM
' 01GRGH30H8DMQ4F9A0XCTZHPGN
' 01GRGH30H8DMQ4F9A0XCTZHPGP
' 01GRGH30H8DMQ4F9A0XCTZHPGQ
' 01GRGH30H8DMQ4F9A0XCTZHPGR
' 01GRGH30H8DMQ4F9A0XCTZHPGS
' 01GRGH30H8DMQ4F9A0XCTZHPGT
' 01GRGH30H8DMQ4F9A0XCTZHPGV
' 01GRGH30H8DMQ4F9A0XCTZHPGW
' 01GRGH30H8DMQ4F9A0XCTZHPGX
' 01GRGH30H8DMQ4F9A0XCTZHPGY
' 01GRGH30H8DMQ4F9A0XCTZHPGZ
' 01GRGH30H8DMQ4F9A0XCTZHPH0
' 01GRGH30H8DMQ4F9A0XCTZHPH1
' 01GRGH30H8DMQ4F9A0XCTZHPH2
' 01GRGH30H8DMQ4F9A0XCTZHPH3
' 01GRGH30H8DMQ4F9A0XCTZHPH4
' 01GRGH30H8DMQ4F9A0XCTZHPH5
' 01GRGH30H8DMQ4F9A0XCTZHPH6
' 01GRGH30H8DMQ4F9A0XCTZHPH7
' 01GRGH30H8DMQ4F9A0XCTZHPH8
' 01GRGH30H8DMQ4F9A0XCTZHPH9
' 01GRGH30H8DMQ4F9A0XCTZHPHA
' 01GRGH30H8DMQ4F9A0XCTZHPHB
' 01GRGH30H8DMQ4F9A0XCTZHPHC
' 01GRGH30H8DMQ4F9A0XCTZHPHD
' 01GRGH30H8DMQ4F9A0XCTZHPHE
' 01GRGH30H8DMQ4F9A0XCTZHPHF
' 01GRGH30H8DMQ4F9A0XCTZHPHG
' 01GRGH30H8DMQ4F9A0XCTZHPHH
' 01GRGH30H8DMQ4F9A0XCTZHPHJ
' 01GRGH30H8DMQ4F9A0XCTZHPHK
' 01GRGH30H8DMQ4F9A0XCTZHPHM
' 01GRGH30H8DMQ4F9A0XCTZHPHN
' 01GRGH30H8DMQ4F9A0XCTZHPHP
' 01GRGH30H8DMQ4F9A0XCTZHPHQ
' 01GRGH30H8DMQ4F9A0XCTZHPHR
' 01GRGH30H8DMQ4F9A0XCTZHPHS
' 01GRGH30H8DMQ4F9A0XCTZHPHT
' 01GRGH30H8DMQ4F9A0XCTZHPHV
' 01GRGH30H8DMQ4F9A0XCTZHPHW
' 01GRGH30H8DMQ4F9A0XCTZHPHX
' 01GRGH30H8DMQ4F9A0XCTZHPHY
' 01GRGH30H8DMQ4F9A0XCTZHPHZ
' 01GRGH30H8DMQ4F9A0XCTZHPJ0
' 01GRGH30H8DMQ4F9A0XCTZHPJ1
' 01GRGH30H8DMQ4F9A0XCTZHPJ2
' 01GRGH30H8DMQ4F9A0XCTZHPJ3
' 01GRGH30H8DMQ4F9A0XCTZHPJ4
' 01GRGH30H8DMQ4F9A0XCTZHPJ5
' 01GRGH30H8DMQ4F9A0XCTZHPJ6