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

# SameDate

Check whether two TDateTime values have the same date part.

## Declaration

Source position: dateutil.inc line 365

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

## Arguments

 A First DateTime value B Second DateTime value

## Function result

True if A and B have the same time part, False if not

## Description

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

The function simply checks whether CompareDate returns zero.

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

## Example

```Program Example102;

{ This program demonstrates the SameDate 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 date as ');
Writeln(FormatDateTime(Fmt,D2),' : ',SameDate(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.
```