Discussion :

[gannher]

Bonjour

J'ai une date de format YYYYMMDD (par exemple 20080214).

Je voudrai faire une comparaison pour savoir si cette date est supérieure de 6 mois par rapport à la date d'aujourd'hui.
J'ai voulu essayer le module DateTime mais il faut l'installer et là où je suis actuellement, ça ne sera pas autorisé.

C'est mon 1er programme en perl et j'avoue que je galère bien. Je connais bien mieux le PHP.

Merci

[djibril]

http://perl.developpez.com/sources/?page=section3

[gannher]

Bonjour

Merci pour le lien.

Grace à ce lien, j'ai pu faire ce morceau de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
sub compareDate {
    my($dateDebut, $dateFin) = @_;
    #(3600 * 24) * 30 
    my $nbSecondPourSixMois = 2592000;
    print $dateDebut."\n";
    print $dateFin."\n";
    my @DateD;
    #jour
    $DateD[0] = substr($dateDebut, 6, 2);
    #mois
    $DateD[1] = (substr($dateDebut, 4, 2) - 1);
    #annee
    $DateD[2] = substr($dateDebut, 0, 4);
 
    my @DateF;
    #jour
    $DateF[0] = substr($dateFin, 6, 2);
    #mois
    $DateF[1] = (substr($dateFin, 4, 2) - 1);
    #annee
    $DateF[2] = substr($dateFin, 0, 4);
 
    my $timeLocalDateDebut = timelocal( 0,0,0, @DateD ),"\n";
    my $timeLocalDateFin = timelocal( 0,0,0, @DateF ),"\n";
    if(($timeLocalDateFin - $timeLocalDateDebut) >= $nbSecondPourSixMois) {
        print "La différence des dates sont différentes de plus de 6 mois.\n";
    }
    else {
        print "La différence des dates sont inférieures à plus de 6 mois.\n";
    }
}

La dateFin est en réalité la date d'aujourd'hui.
Les dates que je reçois sont au format AAAAMMDD.

Ce programme fait à peu près ce que je veux mais il n'est pas du tout précis, notamment du au fait que je considère qu'il y a 30 jours dans chaques mois.
Pour calculer le nombre de secondes en 6 mois, je fais (3600 * 24) * 30. Ce qui n'est pas très précis.
Y a t il un moyen d'améliorer mon script ?

Merci.

[djibril]

Dans le lien que je t'ai filé, il y a des bout de codes faisans exactement ce que tu souhaites via l'utilisation de modules fait pour, relis le correctement.

[gannher]

Bonjour,
J'ai bien lu ce passage mais il y a toujours un problème de précision.

En effet je vais obtenir le nombre de jour. Mais si par exemple j'obtiens un résultat de 180 jours, comment savoir si c'est bien égal à 6 mois, sachant que certaines mois ont 30 jours, d'autres 31 et un qui varie (février)?

En PHP, je faisais :

Code :

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

$sDate = date("Ymd",mktime(0,0,0,date("m")-6,date("d"),date("Y")));

N'y a t il pas un équivalent ?

[djibril]

Faut prendre le temps de lire ce qu'on vous met à disposition .
Tout est dans le lien. A vous ensuite de compléter votre lecture en regardant la documentation du module.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
use Date::Calc qw(:all);
 
my ($jour1,$mois1,$annee1) = split("/","28/05/2006");
my ($jour2,$mois2,$annee2) = split("/","05/12/2008");
my $Dd = Delta_Days(($annee1,$mois1,$jour1),($annee2,$mois2,$jour2) );
my ($annee , $mois, $jours ) = Delta_YMD( ($annee1,$mois1,$jour1),($annee2,$mois2,$jour2) );
print "$Dd jours entre 28/05/2006 et 05/12/2008\n";
print "$jours jours, $mois mois , $annee annee entre 28/05/2006 et 05/12/2008\n";

te retourne

922 jours entre 28/05/2006 et 05/12/2008
-23 jours, 7 mois , 2 annee entre 28/05/2006 et 05/12/2008

[djibril]

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use Date::Calc qw(:all);
use POSIX;
 
my $DateToday = POSIX::strftime "%d/%m/%Y", localtime;
my ($jour1,$mois1,$annee1) = split("/",$DateToday);
 
my $date_quelconque = '20080214';
my ($annee2, $mois2, $jour2) = $date_quelconque =~ m{(\d{4})(\d{2})(\d{2})};
 
my ($annee , $mois, $jours ) = Delta_YMD( ($annee1,$mois1,$jour1),($annee2,$mois2,$jour2) );
print "Il y a $jours jours, $mois mois , $annee annee entre $DateToday et $date_quelconque\n";

[gannher]

Merci

[gannher]

Mon problème est résolu mais juste pour ma curiosité, quelqu'un peut m'expliquer comment fonctionne cette ligne:

Code :

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

m{(\d{4})(\d{2})(\d{2})}

A quoi correspond le m et le d ? J'ai supposé au début que m = month et d = day mais apparement, ce n'est pas ça.

Merci

[djibril]

Code :

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

my ($annee2, $mois2, $jour2) = $date_quelconque =~ m{(\d{4})(\d{2})(\d{2})};

C'est une expression régulière :
\d => un chiffre.
\d{4} => cherche 4 chiffres qui se suivent.
les parentheses => captures

Il y en a 3, donc on les captures et les stocke dans ($annee2, $mois2, $jour2)

Lit la FAQ pour en savoir plus.

[gannher]

Merci