Скрипты Simple-Scada

Синтаксис

function IsLeapYear(AYear: Word): Boolean;

Описание

Показывает, является ли указаный год високосным.

Пример кода

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