Check if two date/time indications are the same day.
Source position: dateutil.inc line 134
function IsSameDay( |
const AValue: TDateTime; |
const ABasis: TDateTime |
):Boolean; |
AValue |
|
First date/time for the comparison. |
ABasis |
|
Second date/time for the comparison. |
True if AValue and ABasis are on the same day, False otherwise..
IsSameDay checks whether AValue and ABasis have the same date part, and returns True if they do, False if not.
|
Return the current date. |
|
|
Return the previous day. |
|
|
Return the next day after today. |
|
|
Check whether a given date is today. |
Program Example21; { This program demonstrates the IsSameDay function } Uses SysUtils,DateUtils; Var I : Integer; D : TDateTime; Begin or:=1 to 3 do begin D:=Today+Random(3)-1; Write(FormatDateTime('dd mmmm yyyy "is today : "',D)); Writeln(IsSameDay(D,Today)); end; End.