|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Max Kuznetsov 2:5020/845.101 18 Aug 2005 19:56:56 To : Vladimir Marunin Subject : вот хотел спросить у общественности -------------------------------------------------------------------------------- >> A> дату изменить текущую на определенное количество дней >> A> я вот так в лобсделал но сие не красиво >> A> и потом формат не совпадает для однозначных дат получается >> A> 2005-08-1 >> A> а надо бы 2005-08-01 >> >> A> $datestamp = strftime "%Y-%m-%d_%H:%M:%S", localtime; >> A> print $datestamp, "\n"; >> >> A> my $date_tek_y_m = strftime "%Y.%m.", localtime; >> A> my $date_tek_d = strftime "%d", localtime; >> A> my $d=1; >> A> $date_tek = $date_tek_y_m.($date_tek_d-$d); >> >> A> print $date_tek, "\n" ; >> >> Если тебе надо просто получеть строку с исомой датой, то просто localtime >> прибавляешь или отнимаешь колшичествао дней * 86400 и выводишь в нужном >> формате >> >> $time = localtime + (86400 * $d); >> $datestamp = strtftime "%Y-%m-%d_%H:%M:%S", $time; >> print $datestamp, "\n"; VM> Hепарвда твоя. Далеко не во всех сутках 86400 секунд. Дважды в год это не VM> верно (переход с зимнего на летнее время и наоборот), поэтому если сейчас VM> время около полуночи (от 23:00 до 01:00) то такая схема может дать ошибку VM> на сутки. VM> Или возьми нормальный модуль для работы с данными (лучше), VM> либо проверяй время на полночь, например так: VM> $time = time() + (86400 * $d) +(12 - (localtime())[2] )*3600; VM> datestamp = strtftime "%Y-%m-%d_%H:%M:%S", $time; VM> Тут идея в том, чтобы брать середину суток (я вычитаю текущие часы и VM> прибавляю 12). Идея!! =) как я сам-то не подумал =)) старею Привык с датами работать прямо в MySQL, там и считать ни чего не надо. Кстати, какие модули для работы с датами по проще и пошустрее (умеют не много но делают это хорошо)? С уважением Max --- * Origin: тут хётхёттхээю фюыцхэ с т юЁшфцшэ... (2:5020/845.101) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/277534304b17b.html, оценка из 5, голосов 10
|