|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sergey Shibeko 2:5031/32 07 Mar 2002 20:14:45 To : Nikolay Pichtin Subject : Re: Date -------------------------------------------------------------------------------- SS>> Если нужно получить число к примеру месяц и один день назад, нужно SS>> сначала узнать число дней в месяце, то есть тяжелая конструкция SS>> получается. Хотелось бы проще, если это возможно. NP> А чего сложного-то? NP> use Time::Local 'timelocal_nocheck'; NP> $newdate = scalar localtime timelocal_nocheck $sec,$min,$hour,$mday,$mon,$year; NP> И прибавляй или вычитай из $mday или $mon сколько тебе надо. Hу и что получится? Hапример сейчас 1,1,1,1,1,2002 Hужна дата месяц назад. получаем 1,1,1,1,(1-1),2002 то есть нулевой месяц. Date::Calc - почти идеальна для этого случая. --- ifmail v.2.14.os-p7 * Origin: Анархия - мать порядка (2:5031/32@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/1210122795c48.html, оценка из 5, голосов 10
|