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.