Delphi ActiveX

DateTime - Add or Subtract Seconds

Demonstrates the AddSeconds method to add or subtract a number of seconds from a date/time.

Note: This example is only valid in Chilkat v9.5.0.65 or later.

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
dateTime: TCkDateTime;

begin
dateTime := TCkDateTime.Create(Self);

dateTime.SetFromCurrentSystemTime();

Memo1.Lines.Add('Current time: ' + dateTime.GetAsTimestamp(0));

dateTime.AddSeconds(1);
Memo1.Lines.Add('Current time + 1 second: ' + dateTime.GetAsTimestamp(0));

dateTime.AddSeconds(-2);
Memo1.Lines.Add('Current time - 1 second: ' + dateTime.GetAsTimestamp(0));

// Add 30 days (60 * 60 * 24 * 30)
dateTime.AddSeconds(60 * 60 * 24 * 30);
Memo1.Lines.Add('Current time + 30 days: ' + dateTime.GetAsTimestamp(0));

// Sample output for test run on 2-Dec-2016: 

// 	Current time: 2016-12-02T12:59:13Z
// 	Current time + 1 second: 2016-12-02T12:59:14Z
// 	Current time - 1 second: 2016-12-02T12:59:12Z
// 	Current time + 30 days: 2017-01-01T12:59:12Z
end;