Скрипты Simple-Scada

Синтаксис

function IsInLeapYear(AValue: TDateTime): Boolean;

Описание

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

Пример кода

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