|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Nikolay Pichtin 2:5056/30 01 Apr 2005 19:34:58 To : Nikolay Pichtin Subject : Re: Re[2]: Hа: Сутки -------------------------------------------------------------------------------- AC> AVG>>>> ну и для надежности - сравнить год. AC> MY>>> А не проще ли AC> MY>>> if (int(time/86400) == int($news_time/86400)) AC> MY>>> ? AC>>> Проще, но результат будет неверен. MY>> А, ну да, во 1-х localtime, а не gmtime; во 2-х существуют 2 MY>> хороших дня в году... NP> Я сделал так: NP> use Time::Local; NP> our $start_time = timelocal(59,59,23,$mday-1,$mon-1,$year); NP> our $time_delta = time()-$start_time; NP> и дальше Сегодня, 1-го марта произошла ошибка - деление на 0. our ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); NP> if (($start_time-$ttime[0]) < $time_delta) { что-то делаем } * Алимент - страж закона на Востоке. -- Hиколай ---------------------------------------------------------------------- --- * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1813424da2d9.html, оценка из 5, голосов 10
|