(Delphi ActiveX) 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 for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ulid: WideString;
dt: TCkDateTime;
bLocal: Integer;
success: Integer;

begin
ulid := '01GRH14AA82EY9A7S99YYF2QDY';

dt := TCkDateTime.Create(Self);

// 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
  begin
    Memo1.Lines.Add('ULID was not valid.');
    Exit;
  end;

// You can now get the date/time in any desired format.
// For example:
Memo1.Lines.Add('Unix timestamp = ' + IntToStr(dt.GetAsUnixTime(bLocal)));
Memo1.Lines.Add('RFC822 = ' + dt.GetAsRfc822(bLocal));
Memo1.Lines.Add('Timestamp = ' + dt.GetAsTimestamp(bLocal));

// Sample output:

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