Lazarus Pascal

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. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.CkDateTime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  dt: TCkDateTime;
  bLocal: Boolean;
  timestamp: string;

begin
  success := False;

  dt := TCkDateTime.Create;

  success := dt.SetFromCurrentSystemTime();

  //  Get a UTC time.
  bLocal := False;
  timestamp := dt.GetAsTimestamp(bLocal);
  WriteLn('Current UTC Time: ' + timestamp);

  //  Get a local time.
  bLocal := True;
  timestamp := dt.GetAsTimestamp(bLocal);
  WriteLn('Current Local Time: ' + timestamp);

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


  dt.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.