IsInLeapYear

> [HTML Version](isinleapyear.html)

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

````
function IsInLeapYear(AValue: TDateTime): Boolean;

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

Показывает, принадлежит ли значение, указанное в TDateTime, високосному году.

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

````
var  
  aBool: Boolean;  
begin  
  // проверяем относится ли текущий год к високосному  
  aBool := IsInLeapYear(Now);  
  if aBool then  
    // если относится выдать сообщение:  
    ShowMessageClient(GetClientName, '', 'Текущий год - високосный', clGray)  
  else  
    // иначе выдать сообщение:  
    ShowMessageClient(GetClientName, '', 'Текущий год - невисокосный', clGray);  
end.
````