Delphi ActiveX

Date/Time Older-Than N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is older than the current time by N seconds, minutes, hours, or days. 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
dt: TCkDateTime;
b: Integer;

begin
dt := TCkDateTime.Create(Self);

// Set to the current system date/time.
dt.SetFromCurrentSystemTime();
Memo1.Lines.Add('Now: ' + dt.GetAsTimestamp(1));

// Subtract 10 minutes, making the date 10 minutes in the past.
dt.AddSeconds(-600);
Memo1.Lines.Add('10 minutes ago: ' + dt.GetAsTimestamp(1));

// Is the date/time older than 10 seconds?
b := dt.OlderThan(10,'seconds');
Memo1.Lines.Add('Older than 10 seconds: ' + IntToStr(Ord(b)));

// Is the date/time older than 5 minutes?
b := dt.OlderThan(5,'minutes');
Memo1.Lines.Add('Older than 5 minutes: ' + IntToStr(Ord(b)));

// Is the date/time older than 15 minutes?
b := dt.OlderThan(15,'minutes');
Memo1.Lines.Add('Older than 15 minutes: ' + IntToStr(Ord(b)));

// Is the date/time older than 1 hour?
b := dt.OlderThan(1,'hour');
Memo1.Lines.Add('Older than 1 hour: ' + IntToStr(Ord(b)));

// Is the date/time older than 1 day?
b := dt.OlderThan(1,'day');
Memo1.Lines.Add('Older than 1 day: ' + IntToStr(Ord(b)));

// Output:

// 	Now: 2017-05-05T23:33:06-0500
// 	10 minutes ago: 2017-05-05T23:23:06-0500
// 	Older than 10 seconds: True
// 	Older than 5 minutes: True
// 	Older than 15 minutes: False
// 	Older than 1 hour: False
// 	Older than 1 day: False
end;