DaysInAMonth
Adam Boduch
DaysInAMonth
Moduł: DateUtils
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.
Wartość parametru AYear musi być liczbą od 1 do 9999 (włącznie), a AMonth, liczbą od 1 do 12 (włącznie).
Zobacz też: