Skip to content

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

Name Description
IsToday Check whether a given date is today.
Today Return the current date
Tomorrow Return the next day
Yesterday Return the previous day.

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.