|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Max Kuznetsov 2:5020/845.101 18 Aug 2005 15:47:36
To : Andy
Subject : вот хотел спросить у общественности
--------------------------------------------------------------------------------
A> как
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";
С уважением
Max
---
* Origin: тут хётхёттхээю фюыцхэ с т юЁшфцшэ... (2:5020/845.101)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
вот хотел спросить у общественности 
