IsSameDay
Check if two date/time indications are the same day.
Declaration
Source position: dateutil.inc line 113
function IsSameDay(const AValue: TDateTime; const ABasis: TDateTime)
: Boolean;
Description
IsSameDay checks whether AValue and ABasis have the same date part, and returns True if they do, False if not.
See also
Example
Program Example21;
{ This program demonstrates the IsSameDay function }
Uses SysUtils,DateUtils;
Var
I : Integer;
D : TDateTime;
Begin
For I:=1 to 3 do
begin
D:=Today+Random(3)-1;
Write(FormatDateTime('dd mmmm yyyy "is today : "',D));
Writeln(IsSameDay(D,Today));
end;
End.