Forum Webscript.Ru

Программирование => Perl => Тема начата: от 18 Июля 2002, 12:53:29

Название: Как в Perl определить сколько дней в месяце
Отправлено: от 18 Июля 2002, 12:53:29

Как в Perl определить сколько дней в месяце

Название: Как в Perl определить сколько дней в месяце
Отправлено: APL от 18 Июля 2002, 13:17:13

@days = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
if ($year % 4) {
   $days[1] = 28;
}

количество дней в году $year = $days[$mon] (где $mon - 0-11)

Название: Как в Perl определить сколько дней в месяце
Отправлено: от 18 Июля 2002, 16:25:04

http://search.cpan.org/doc/STBEY/Date-Calc-5.0/Calc.pod

Название: Как в Perl определить сколько дней в месяце
Отправлено: APL от 18 Июля 2002, 17:06:01

тьфу! не в году а в месяце конечно

Название: Как в Perl определить сколько дней в месяце
Отправлено: APL от 18 Июля 2002, 17:07:44

а зачем такой огород если просто нужно кол-во дней?

Название: Как в Perl определить сколько дней в месяце
Отправлено: Evgeny от 18 Июля 2002, 17:43:59

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


use Time::Local;
$m=2;
$y=2000;

print ((localtime(timelocal(0,0,0,1,$m,$y-1900)-1))[3]);

;)

Название: Как в Perl определить сколько дней в месяце
Отправлено: APL от 18 Июля 2002, 20:16:48

IMHO мой вариант побыстрее

Название: Как в Perl определить сколько дней в месяце
Отправлено: Evgeny от 19 Июля 2002, 12:30:24

Цитировать

IMHO мой вариант побыстрее

Не в скорости дело, а в умении!
А вообще ты смайлик внизу кода видел?

Название: Как в Perl определить сколько дней в месяце
Отправлено: APL от 19 Июля 2002, 15:06:11

В умении делать что? Скорость, как правило, главный критерий.

Название: Как в Perl определить сколько дней в месяце
Отправлено: Evgeny от 22 Июля 2002, 11:49:48

Цитировать

В умении делать что? Скорость, как правило, главный критерий.

Блин, ещё раз говорю, не тормози, посмотри на смайлик под моим кодом.