Discussion :

[djezair31]

Bonjour,

j'utilise le script perl ci-dessous pour afficher le numéro de semaine correspondant à une date (D/M/Y).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[djezair31]

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