MonthDays - это функция
MonthDays( Dt, <5, 6 или 7>
сколько дней в месяце Dt при 5,6,7-дн неделе)
MonthDays( Date(), 5 )
Функции Delphi
Полезные функции