ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Ivanov                         2:5020/400     23 Apr 2003  22:30:41
 To : Konstantin Tokar
 Subject : Re: даты, там, всякие...
 -------------------------------------------------------------------------------- 
 

 Konstantin Tokar пишет:
 
 > В принципе правильно, но 1900-й год например не високосный, надо учесть 
 > и такие годы.
 > "...По новому стилю високосным является каждый год, число которого 
 > делится на 4 без остатка, за исключением тех годов, числа которых 
 > оканчиваются на 2 нуля, но не делятся на 400 (например, годы 1700, 1800, 
 > 1900 не являются високосными) ..."
 
 Согласен (я просто об этом не знал).
 Hо ведь не сложно добавить и эту проверку. См. ниже
 
 ($month, $year) = (localtime)[4,5];
 $year+=1900;
 if (($year/4)=~/^\d+$/ && (($year=~/00$/)&&(($year/400)=~/^\d+$/)))
 { $feb = 29 } else { $feb = 28 }
 @months = (31,$feb,31,30,31,30,31,31,30,31,30,31);
 print "Год $year\nВ этом месяце $months[$month] дн.\n";
 
 P.S. Еще надо знать конечную задачу, т.к. предыдущий код прекрасно 
 работал для годов с 1901 до 2099. Может большее и не требуется.
 --- ifmail v.2.15dev5
  * Origin: FKT (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    даты, там, всякие...   Dima Horoshev   22 Apr 2003 21:47:26   Re: даты, там, всякие...   Alexey Mahotkin   22 Apr 2003 23:25:16   Re: даты, там, всякие...   Michael B. Babakov   22 Apr 2003 23:58:45   Re: даты, там, всякие...   Alexey Mahotkin   23 Apr 2003 01:24:48   Re: даты, там, всякие...   Slava   23 Apr 2003 16:46:48   Re: даты, там, всякие...   Konstantin Tokar   23 Apr 2003 17:27:42   Re: даты, там, всякие...   Slava Ivanov   23 Apr 2003 22:30:41   Re: даты, там, всякие...   Alexey Mahotkin   23 Apr 2003 22:43:12   Re: даты, там, всякие...   Slava Ivanov   24 Apr 2003 00:53:50   Re: даты, там, всякие...   Konstantin Tokar   24 Apr 2003 01:18:40   Re: даты, там, всякие...   Alexey Mahotkin   24 Apr 2003 03:07:31   Re: даты, там, всякие...   abc__   24 Apr 2003 11:36:10   Re: даты, там, всякие...   Artem Chuprina   24 Apr 2003 12:53:32   Re: даты, там, всякие...   abc__   24 Apr 2003 13:18:07   Re: даты, там, всякие...   Konstantin Tokar   24 Apr 2003 13:32:22   Re: даты, там, всякие...   abc__   24 Apr 2003 13:42:37   даты, там, всякие...   Renat Araslanow   24 Apr 2003 20:41:19   Re: даты, там, всякие...   abc__   25 Apr 2003 11:33:40   Re: даты, там, всякие...   Valentin Nechayev   30 Apr 2003 09:28:23   Re: даты, там, всякие...   Alexey Mahotkin   24 Apr 2003 13:22:44   Re: даты, там, всякие...   abc__   24 Apr 2003 13:26:18