Discussion :

[arm3366]

salut à tous,

j'ai deux dates au forma aaaammjj et je veux calculer la difference, voila ce que j'ai fais

Code :

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

1
2
3
my ( $annee1, $mois1, $jour1 ) = $plusancien =~ m/(\d{4})(\d{2})(\d{2})/;
        my ( $annee2, $mois2, $jour2 ) = $plusrecent =~ m/(\d{4})(\d{2})(\d{2})/;
        my $s_projectduration = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );

et la ça ne marche pas, est ce que quelqu'un a une idee de l'erreur que j'ai peut etre commis,merci

[djibril]

Dans les sources à télécharger.

[arm3366]

merci j'y vais

[arm3366]

@Djibril que pourtatnt que j'ai fait pareil, mais je doute sur la façon dont j'ai decoupé mes date, peut etre avec un plus du bout de mon code vous verrez mon probleme:

Code :

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

1
2
3
4
5
6
7
8
9
10
my 
       @s_lfdtriee = sort @s_lfd;        #@s_lfd est une liste de date au format aaaammjj
        my @s_lldtriee = sort @s_lld;  #@s_lld est une liste de date au format aaaammjj
        my $plusancien = $s_lfdtriee [0]; # la plus ancienne date des firstdate
        my $plusrecent = $s_lldtriee [-1];  # la plus recente date des lastdate
        #print "Date de lancement de l'etude : $plusancien\n";
        #print "Date de cloture de l'etude : $plusrecent\n";
        my ( $annee1, $mois1, $jour1 ) = $plusancien =~ m/(\d{4})(\d{2})(\d{2})/;
        my ( $annee2, $mois2, $jour2 ) = $plusrecent =~ m/(\d{4})(\d{2})(\d{2})/;
        my $s_projectduration = Delta_Days( ( $annee1, $mois1, $jour1 ), ( $annee2, $mois2, $jour2 ) );

je signale que j'ai utilisé

Code :

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

use Date::Calc qw(:all);

au debut de mon script

[djibril]

Fais un print pour voir déjà si tu travailles sur des bonnes valeurs

Code :

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

1
2
print "$plusancien => $annee1, $mois1, $jour1\n";
print "$plusrecent => $annee2, $mois2, $jour2\n";

[arm3366]

et que pensez-vous de ça:

Code :

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

my $plusrecent = $s_lldtriee [-1];

sachant j'ai trie une liste de date et je veux recuperer la date la plus recente de la liste triée, est ce que c'est correct?