Delphi DLL

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 DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, CkDateTime;

...

procedure TForm1.Button1Click(Sender: TObject);
var
dt: HCkDateTime;
b: Boolean;

begin
dt := CkDateTime_Create();

// Set to the current system date/time.
CkDateTime_SetFromCurrentSystemTime(dt);
Memo1.Lines.Add('Now: ' + CkDateTime__getAsTimestamp(dt,True));

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

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

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

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

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

// Is the date/time older than 1 day?
b := CkDateTime_OlderThan(dt,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

CkDateTime_Dispose(dt);

end;