CompareDate

> [HTML Version](comparedate.html)

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

````
function CompareDate:(A, B: TDateTime): ShortInt;

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

Сравнивает дату переменных A и B. Возвращает: "-1" при A < B; "0" при A = B; "1" при A > B.  

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

````
var  
  aDate1, aDate2: TDateTime;  
  I: Integer;  
begin  
  aDate1:= Now;                     // текущая дата  
  aDate2:= IncDay(aDate1, 1);       // увеличить дату на 1 день  
  I := CompareDate(aDate1, aDate2); // сравнить даты, результат I = "-1"  
end.
````