16.45.9. function DaysInMonth
function DaysInMonth(nYear, nMonth: Integer): Integer;
Возвращает количество дней в заданном месяце.
Пример:
var
Year, Month, Day: Word;
begin
DecodeDate(Now, Year, Month, Day);
AddToLog('DaysInMonth=' +
IntToStr(DaysInMonth(Year,Month))
);
end.