DaysInAMonth
Модуль: DateUtils
function DaysInAMonth(const AYear, AMonth: Word): Word;
Функция возвращает количество дней в месяце, заданном параметром AMonth, и год, заданный параметром AYear :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var i : Integer; Year : Word; begin Year := YearOf(Now); for I := 1 to 12 do Writeln('Miesiąc ', I, ' posiada ', DaysInAMonth(Year, I), ' dni...'); Readln; end. |
Значение параметра AYear должно быть числом от 1 до 9999 (включительно), и amonth , число от 1 до 12 (включительно).