SameDateTime

Check whether two TDateTime values have the same date and time parts.

Declaration

Source position: dateutil.inc line 364

  function SameDateTime(const A: TDateTime; const B: TDateTime) : Boolean;

Description

SameDateTime compares the date/time parts of two timestamps A and B and returns True if they are equal, False if they are not.

The function simply checks whether CompareDateTime returns zero.

See also

Name	Description
CompareDate	Compare 2 dates, disregarding the time of day
CompareDateTime	Compare 2 dates, taking into account the time of day
CompareTime	Compares two times of the day, disregarding the date part.
SameDate	Check whether two TDateTime values have the same date part.
SameTime	Check whether two TDateTime values have the same time part.

Example

Program Example101;
{ This program demonstrates the SameDateTime function }
Uses SysUtils,DateUtils;
Const
  Fmt = 'dddd dd mmmm yyyy hh:nn:ss.zzz';
Procedure Test(D1,D2 : TDateTime);
begin
  Write(FormatDateTime(Fmt,D1),' is the same datetime as ');
  Writeln(FormatDateTime(Fmt,D2),' : ',SameDateTime(D1,D2));
end;
Var
  D,N : TDateTime;
Begin
  D:=Today;
  N:=Now;
  Test(D,D);
  Test(N,N);
  Test(N+1,N);
  Test(N-1,N);
  Test(N+OneSecond,N);
  Test(N-OneSecond,N);
End.