Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Deux Question Perl => Connaitre une semaine + Requete SQL

2 réponses
Avatar
Mag
Bonjour,

J'aimerais savoir si il y a une fonction Perl qui
permet de connaitre le numero de la semaine dans une année precise
et vice versa, connaitre la plage date par exemple de la semaine 7 de
l'année 2006 ?


Et deuxieme chose, qui est plus une requete sql mais bon, mon script
perl doit recuperer les enregistrement d'une table dont le champ date
a + 1 mois, ai je une commande du style SELECT avec un DATE=>1M ?

merci d'avance

2 réponses

Avatar
Klaus
Mag wrote:
Bonjour,

J'aimerais savoir si il y a une fonction Perl qui
permet de connaitre le numero de la semaine dans une année precise


il faut d'abord installer un module "Date::Calc"
http://perl.enstimac.fr/perl5.8.5/site_perl/5.8.5/sun4-solaris/Date/Calc.ht ml

ensuite on peut utiliser la fonction "Week_of_Year":

use Date::Calc qw(:all);
print "Quelle année ? "; $year = <>;
print "Quel mois ? "; $month = <>;
print "Quel jour ? "; $day = <>;
($week, $year) = Week_of_Year($year, $month, $day);
print "semaine = $weekn";
print "année = $yearn";

et vice versa, connaitre la plage date par exemple de la semaine 7 de
l'année 2006 ?


pour connaître le lundi:

use Date::Calc qw(:all);
($week, $year) = (7, 2006);
($year, $month, $day) = Monday_of_Week($week, $year);
print "le lundi de la semaine 7 ";
print "de l'année 2006 est $day/$month/$yearn";

Avatar
Mag
Mag wrote:
Bonjour,

J'aimerais savoir si il y a une fonction Perl qui
permet de connaitre le numero de la semaine dans une année precise


il faut d'abord installer un module "Date::Calc"
http://perl.enstimac.fr/perl5.8.5/site_perl/5.8.5/sun4-solaris/Date/Calc.html

ensuite on peut utiliser la fonction "Week_of_Year":

use Date::Calc qw(:all);
print "Quelle année ? "; $year = <>;
print "Quel mois ? "; $month = <>;
print "Quel jour ? "; $day = <>;
($week, $year) = Week_of_Year($year, $month, $day);
print "semaine = $weekn";
print "année = $yearn";

et vice versa, connaitre la plage date par exemple de la semaine 7 de
l'année 2006 ?


pour connaître le lundi:

use Date::Calc qw(:all);
($week, $year) = (7, 2006);
($year, $month, $day) = Monday_of_Week($week, $year);
print "le lundi de la semaine 7 ";
print "de l'année 2006 est $day/$month/$yearn";




merci pour ton aide