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

# SameDateTime

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

## Declaration

Source position: dateutil.inc line 377

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

## Arguments

 A First TDateTime value B Second TDateTime value

## Function result

True if A and B have the same date and time parts, False if not.

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

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