Sign in Join
FPDoc Onlineexperiment

IsSameDay function

In unit DateUtils

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

Declaration

pascal
function IsSameDay(const AValue: TDateTime; const ABasis: TDateTime)
: Boolean

Arguments

AValue

First date/time for the comparison.

ABasis

Second date/time for the comparison.

Function result

True if AValue and ABasis are on the same day, False otherwise..

Description

IsSameDay checks whether AValue and ABasis have the same date part, and returns True if they do, False if not.

See also

Example: ex21

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.