Расчет високосных лет в основном предназначен для определения количества дней в феврале. Обычно в феврале 29 дней в високосные годы и 28 дней в обычные годы. Алгоритм расчета високосных лет очень прост, то есть: делится на 400, либо делится на 4, но не делится на 100.
Алгоритм следующий:
функция isLeapYear(pYear)
установить oreg=новое регулярное выражение
oreg.Pattern="^d{4}$"
если не oreg.Test(pYear), то
isLeapYear = ложь
функция выхода
конец, если
oГод=clng(pГод)
if ((oYear mod 4=0 и oYear mod 100<>0) или oYear mod 400=0), то
isLeapYear=истина
еще
isLeapYear = ложь
конец, если
конечная функция