Как найти Leapyear в VBA?

public function isLeapYear (yr as integer) as boolean
    isLeapYear   = false
    if (mod(yr,400)) = 0 then isLeapYear  = true
    elseif (mod(yr,100)) = 0 then isLeapYear  = false
    elseif (mod(yr,4)) = 0 then isLeapYear  = true
end function

В Википедии подробнее...
http://en.wikipedia.org/wiki/Leap_year
excel-macro

function

vba

excel

code-snippets

2022-08-09T04:09:08+00:00
Вопросы с похожей тематикой, как у вопроса:

Как найти Leapyear в VBA?

Как определить, отключен ли JavaScript?

Хранение фрагментов кода в eclipse

Фрагменты кода для методов в Visual Studio

Короткий код Python, чтобы сказать «Выберите меньшее значение»?

Как использовать фрагмент "sysout" в Eclipse с выделенным текстом?

Получить удобочитаемую версию размера файла?

Как определить, является ли строка допустимой JSON?

Очень простая реализация карты на C (для кеширования)?

Как включить фрагмент кода в презентацию проектора?

Как поместить HTML или XML в YAML?

Sphinx, reStructuredText показать / скрыть фрагменты кода

Экранирование символа $ в сниппетах

Диалог выбора файла

Ярлык для создания свойств в Visual Studio?