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

## See also

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.

Documentation generated on: May 14 2021