Delphi ActiveX

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 ActiveX

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
success: Integer;
dt: TCkDateTime;
bLocal: Integer;
timestamp: WideString;

begin
success := 0;

dt := TCkDateTime.Create(Self);

success := dt.SetFromCurrentSystemTime();

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

// Get a local time.
bLocal := 1;
timestamp := dt.GetAsTimestamp(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
end;