SameDate

> [HTML Version](samedate.html)

**Синтаксис**

````
function SameDate(A, B: TDateTime): Boolean;

````
**Описание**

Показывает, представляют ли два значения TDateTime тот же самый год, месяц и день.

**Пример кода**

````
var  
  aDate1, aDate2: TDateTime;  
  aBool: Boolean;  
begin  
  aDate1:= Now;                     // текущая дата  
  aDate2:= IncDay(aDate1, 1);       // увеличить дату на 1 день  
  aBool:= SameDate(aDate1, aDate2); // сравнить даты  
  
  if aBool then  
    // если совпадают выдать сообщение:  
    ShowMessageClient(GetClientName, '', 'Даты совпадают', clGray)  
  else  
    // иначе сообщение:  
    ShowMessageClient(GetClientName, '', 'Даты не совпадают', clGray);  
end.
````