WithinPastHours indicates True if two TDateTime values are within the specified AHours number of hours of each other.

WithinPastHours is used to determine whether the date specified by ANow is within AHours hours of the date specified by AThen.

Fractional hours do not count, so if ANow and AThen are two and a half hours apart, calling WithinPastHours with AHours set to 2, returns True.

Declaration: function WithinPastHours(const ANow, AThen: TDateTime; const AHours: Int64): Boolean;

An example follows.

procedure OnMapEvent(var Value:Variant);
var
TheDate, ThatDate : TDateTime;
begin
//The IF is True as less than or equal to 2 hours
TheDate := EncodeDateTime(2023, 11, 30, 13, 25, 15, 650);
ThatDate := EncodeDateTime(2023, 11, 30, 14, 25, 15, 700);
If WithinPastHours(ThatDate, TheDate, 2) then
LogInfo('The difference between the two dates is less than 2 hours')
else
LogInfo('The difference between the two dates is more than 2 hours');
end;