Numéro de semaine, module Date::Calc
Bonjour,
j'utilise le script perl ci-dessous pour afficher le numéro de semaine correspondant à une date (D/M/Y).
Code:
1
2
3
4
5
6
7
| #!C:/perl/bin/perl.exe
use Date::Calc qw(:all);
foreach my $year (2004,2005,2006,2007,2008,2009)
{
print "30/12/$year Week=".Week_of_Year($year,12,30)."\n";
} |
j'obient la sortie suivante :
Code:
1
2
3
4
5
6
| 30/12/2004 Week=53
30/12/2005 Week=52
30/12/2006 Week=52
30/12/2007 Week=52
30/12/2008 Week=1
30/12/2009 Week=53 |
Pourquoi Week=1 pour la date 30/12/2008 ?
Le résultat est-il le même sous Linux ?
Merci de m'éclairer.
Numéro de semaine, module Date::Calc
En fait, il n'y a pas d'erreur. Le 30/12/2008 fait partie de la première semaine de 2009; En effet, dans certain cas, une semaine peut-être à cheval sur 2 année (Fin décembre).
http://search.cpan.org/dist/Date-Calc/Calc.pod
