- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #4033 [671]
От : Andrew V Scherbacov 2:5002/74.1 08 июля 04, 08:53
Кому : Sergey Orlov 14 июля 04, 22:51
Тема : Глючок со временем
-------------------------------------------------------------------------------
Привет, Sergey!
Однажды Wednesday July 07 2004 в 12:53, некто Sergey Orlov писал All:
SO> Использую ActiveState 5.8.3.805, и встретился со следующим багом
SO> use Time:Local;
SO> $sutki=24*60*60;
SO> А здесь цикл ---
SO> ($m_day,$m_month,$m_year)=(localtime($in1))[3,4,5];
SO> $in1=timelocal(0,0,0,$m_day,$m_month,$m_year);
SO> $in1=$in1+$sutki;
SO> Так вот все отрабатывается нормально, пока не доходит до, в
SO> зависимости от года , 27-30 ноября, после чего сутки не
SO> плюсуются. Может кто-нибудь подскажет как это обойти или другой
SO> способ увеличения даты на один день...
localtime EXPR
Converts a time as returned by the time function
to a 9-element list with the time analyzed for the
local time zone. Typically used as follows:
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
yday - день года. не подойдет ?
С уважением
Андрей Щербаков
E-mail: avs_andrew[at]mail.ru ICQ: 54034993
... Дураки мчатся туда, где даже ангелы боятся красться.
--- GED+W32 испытывает версию 1.1.5-040120
* Origin: Знаю! Hичего не веpнется! (2:5002/74.1)