Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 30 Ноября 2005, 11:23:03

Название: Дней в месяце
Отправлено: Error202 от 30 Ноября 2005, 11:23:03

Как узнать количество дней в заданном месяце?

Название: Дней в месяце
Отправлено: Wyclef от 30 Ноября 2005, 13:38:37

Код: [Выделить]

my @mdays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my ($month, $year) = ((localtime)[4]+1, (localtime)[5]+1900);

my $mdays = ($year-2000)/4 == int(($year-2000)/4) && $month == 2 ? 29 : $mdays[$month-1];

print $month, \'/\', $year, \' -> \', $mdays, \' days\';

Название: Дней в месяце
Отправлено: Error202 от 02 Декабря 2005, 12:06:22

Да спасибо... Я так и сделал... Думал вдруг есть что-нть стандартное...