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