Delphi DLL

Get Current Date/Time as Timestamp (YYYY-MM-DDThh:mm:ssTZD)

Demonstrates how to get the current system date/time in YYYY-MM-DDThh:mm:ssTZD format. Delphi 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
success: Boolean;
dt: HCkDateTime;
bLocal: Boolean;
timestamp: PWideChar;

begin
success := False;

dt := CkDateTime_Create();

success := CkDateTime_SetFromCurrentSystemTime(dt);

// Get a UTC time.
bLocal := False;
timestamp := CkDateTime__getAsTimestamp(dt,bLocal);
Memo1.Lines.Add('Current UTC Time: ' + timestamp);

// Get a local time.
bLocal := True;
timestamp := CkDateTime__getAsTimestamp(dt,bLocal);
Memo1.Lines.Add('Current Local Time: ' + timestamp);

// Sample output:
// 
// Current UTC Time: 2022-03-01T00:48:58Z
// Current Local Time: 2022-02-28T18:48:58-06:00

CkDateTime_Dispose(dt);

end;