расчет кризисных дней

http://home.arcor.de/wtromm/kld/kalender.html

не помню у кого стянула-но огромное вам спасибо!