Класс календаря., ООП Опции

[Egor Vladimirovich]

Условие. Календарь. Реализовать класс календаря с возможностью получения дня
недели для даты, числа дней в i месяце,начиная с текущего,определение
высокосного года! Как это реализовать в Delphi?

[Алена]

по-моему, если год делится на 100, но не делится на 400 (ну например 1900, 1700) - он не високосный.

If ((CurrYear mod 4) = 0) and
     not (((CurrYear mod 100) = 0) and ((CurrYear mod 400) <> 0)) then Inc(DayInMonth[2]);