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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ulid: PWideChar;
dt: HCkDateTime;
bLocal: Boolean;
success: Boolean;

begin
ulid := '01GRH14AA82EY9A7S99YYF2QDY';

dt := CkDateTime_Create();

// Unix timestamps stored in ULIDs should be UTC...
bLocal := False;
// Set the CkDateTime from the timestamp contained in the ULID
success := CkDateTime_SetFromUlid(dt,bLocal,ulid);
if (success = False) 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(CkDateTime_GetAsUnixTime(dt,bLocal)));
Memo1.Lines.Add('RFC822 = ' + CkDateTime__getAsRfc822(dt,bLocal));
Memo1.Lines.Add('Timestamp = ' + CkDateTime__getAsTimestamp(dt,bLocal));

// Sample output:

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

CkDateTime_Dispose(dt);

end;