IsToday performs a test comparing the TDateTime value specified in AValue with the current date, as either True if the dates match, or False if they do not match.
The value does not include time, which is set to 00:00:00.
Declaration: Function IsToday(const AValue: TDateTime): Boolean;
A example showing the function used along with FormatDateTime. In this example, the test will fail and return False.
procedure ScriptEvent (var Value : variant);
var
ADate : TDateTime;
begin
ADate := IncDay(Date, 7);
If IsToday(ADate) then//Should be false
LogInfo('The date matches todays date.')
else
LogInfo('The date DOES NOT match todays date.');
LogInfo('The date is '+FormatDateTime('dd/mm/yyyy',ADate));
LogInfo('Today is '+FormatDateTime('dd/mm/yyyy',Date));