[Overview][Constants][Procedures and functions] Reference for unit 'dateutils' (#rtl)

IsSameDay

Check if two date/time indications are the same day.

Declaration

Source position: dateutil.inc line 112

function IsSameDay(

  const AValue: TDateTime;

  const ABasis: TDateTime

):Boolean;

Arguments

AValue

  

First date/time

ABasis

  

Second date/time

Function result

Trueif AValueand ABasisare on the same day, Falseotherwise..

Description

IsSameDaychecks whether AValueand ABasishave the same date part, and returns Trueif they do, Falseif not.

See also

Today

  

Return the current date

Yesterday

  

Return the previous day.

Tomorrow

  

Return the next day

IsToday

  

Check whether a given date is today.

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.