j'aimeras savoir si il y a une commande (ou un script) qui me permette
de savoir si je suis bien le dernier jour du mois ouvr=E9. Par exemple
ce mois-ci cela sera le lundi 31/07/06 mais sinon cela doit =EAtre le
vendredi 29/09/06 et non le 30 car un week-end.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Damien Wyart
* "ozzii" in fr.comp.os.unix:
j'aimeras savoir si il y a une commande (ou un script) qui me permette de savoir si je suis bien le dernier jour du mois ouvré.
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici : http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en dur, j'ai écrit ça très vite ; on peut facilement adapter en récupérant les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) } print "Dernier jour ouvré : ", $dt->dmy, "n";
-- DW
* "ozzii" <ozzii23@gmail.com> in fr.comp.os.unix:
j'aimeras savoir si il y a une commande (ou un script) qui me permette
de savoir si je suis bien le dernier jour du mois ouvré.
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici :
http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en
dur, j'ai écrit ça très vite ; on peut facilement adapter en récupérant
les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) }
print "Dernier jour ouvré : ", $dt->dmy, "n";
j'aimeras savoir si il y a une commande (ou un script) qui me permette de savoir si je suis bien le dernier jour du mois ouvré.
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici : http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en dur, j'ai écrit ça très vite ; on peut facilement adapter en récupérant les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) } print "Dernier jour ouvré : ", $dt->dmy, "n";
-- DW
ozzii
Damien Wyart wrote:
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici : http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en dur, j'ai écrit ça très vite ; on peut facilement adapter en récu pérant les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) } print "Dernier jour ouvré : ", $dt->dmy, "n";
Petite question toute bête (peut-être) Je suis sous Sun Solaris: comment je fait pour utiliser cette commande ?
Merci encore.
Damien Wyart wrote:
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici :
http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en
dur, j'ai écrit ça très vite ; on peut facilement adapter en récu pérant
les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) }
print "Dernier jour ouvré : ", $dt->dmy, "n";
Petite question toute bête (peut-être)
Je suis sous Sun Solaris: comment je fait pour utiliser cette commande
?
Vous pouvez vous inspirer de la « recipie » numéro 10 donnée ici : http://search.cpan.org/~stbey/Date-Calc-5.4/Calc.pod
Il s'agit du module Perl Date-Calc.
Une variante plus simple, toujours en Perl (le mois et l'année sont en dur, j'ai écrit ça très vite ; on peut facilement adapter en récu pérant les infos courantes) :
use DateTime;
my $dt = DateTime->last_day_of_month( year => 2006, month => 7 );
while ( $dt->day_of_week >= 6 ) { $dt->subtract( days => 1 ) } print "Dernier jour ouvré : ", $dt->dmy, "n";
Petite question toute bête (peut-être) Je suis sous Sun Solaris: comment je fait pour utiliser cette commande ?
