| Как определить дату начала и конца недели на Perl |
[исправить] |
my $dofw = (localtime())[6];
my $time = time();
my $inday = 86400;
Начало недели $time - $inday * $dofw или localtime($time - $inday * $dofw)
Конец недели $time + $inday * (6 - $dofw) или localtime($time + $inday * (6 - $dofw))
|
| |
|
|
|
| Раздел: Корень / Программисту и web-разработчику / Perl / Работа со временем и датами |