Discussion :

[vodevil]

J'ai une question que j'avais moi même posé il y a déjà un ans , mais je vous la repose parce que je ne sais pas ou j'ai mis le script .

Comment faire pour comparer deux dates ? Le but c'est de comparer trouver si 30 jours ou plus ce sont écoulé entre ma date A et ma date B la date A étant la date du jour

Merci.

[2Eurocents]

Au hasard ... Date::Calc ?

[vodevil]

J'ai strictement rien pigé a a la doc de ce module

[Jedai]

Il n'y a strictement rien à "piger" dans ce module : c'est juste une collection de fonction pour faire divers calcul sur les dates, au final avec cet ensemble de fonctions on peut pratiquement tout faire en matière de calcul calendaire !

Pour ton problème, la fonction suivante semble tout indiquée :

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
 
# ($year,$month,$day) = Add_Delta_Days($year,$month,$day, $Dd);
 
This function has two principal uses:
 
First, it can be used to calculate a new date, given an initial date and an offset (which may be positive or negative) in days, in order to answer questions like "today plus 90 days -- which date gives that?".
 
(In order to add a weeks offset, simply multiply the weeks offset with "7" and use that as your days offset.)
 
Second, it can be used to convert the canonical representation of a date, i.e., the number of that day (where counting starts at the 1st of January in 1 A.D.), back into a date given as year, month and day.
 
Because counting starts at "1", you will actually have to subtract "1" from the canonical date in order to get back the original date:
 
  $canonical = Date_to_Days($year,$month,$day);
 
  ($year,$month,$day) = Add_Delta_Days(1,1,1, $canonical - 1);
 
Moreover, this function is the inverse of the function "Delta_Days()":
 
  Add_Delta_Days(@date1, Delta_Days(@date1, @date2))
 
yields "@date2" again, whereas
 
  Add_Delta_Days(@date2, -Delta_Days(@date1, @date2))
 
yields "@date1", and
 
  Delta_Days(@date1, Add_Delta_Days(@date1, $delta))
 
yields "$delta" again.

L'emploi de cette fonction me paraît particulièrement simple. (N'oublie pas de l'importer, Date::Calc n'importe rien par défaut, heureusement vu la quantité de fonctions ! "use Date::Calc qw( Add_Delta_Days );").

--
Jedaï

[2Eurocents]

Alors il y a la solution Time::Local (bien que je persiste à croire que Date::Calc soit LA solution)

Tu convertis tes dates en nombre de secondes depuis l'Epoch (instant conventionnel de l'origine des temps UNIX).

Ensuite, tu fais tous les calculs que tu veux ...

1 J = 24x3600 sec.
30 J = 30 x 24 x 3600 sec.

[djibril]

je sais plus si le post existe encore, mais j'vais donné une soluce je crois :
bon j'ai retrouvéun vieux script :

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
#!/usr/bin/perl -w
############### calcul date ##################
 
use Date::Calc qw(:all);
$nb= @ARGV; #DATE donnee en argument (ex: 1-2-2005)
if ( $nb == 0 ) {
($j,$m,$a)=(localtime)[3,4,5];
$m++;
$a +=1900;
} else {
($j,$m,$a) = split("-",$ARGV[0]);
}
 
##############################
print "aujourd'hui : $j/$m/$a\n";
 
($aa,$mm,$jj)= Add_Delta_Days($a,$m,$j,6);
print "6 jours apres : $jj/$mm/$aa\n";
 
($aa,$mm,$jj)= Add_Delta_YM($a,$m,$j,-2,-6);
print "2 ans et 6 mois avant : $jj/$mm/$aa\n";
 
($aaa,$mmm,$jjj)= Add_Delta_Days($a,$m,$j,1);
print "demain : $jjj/$mmm/$aaa\n";

[djibril]

date::calc est la soluce,
desole mon script ne fait pas exactement ce que tu veux, mais ça peux t'aider à comprendre le module