Discussion :

[Jasmine80]

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Date::Calc qw(Today N_Delta_YMD Week_Number);
 
my $start = '2009/10/17';
my ($year1,$month1,$day1) = split /\//, $start;
 
my ($year2,$month2,$day2) = Today([1]);
 
 
my  ($Dy,$Dm,$Dd) = N_Delta_YMD($year1,$month1,$day1,$year2,$month2,$day2);
 
 
my $week = Week_Number($Dy,$Dm,$Dd);   
my $Dd_tot = Delta_Days($year1,$month1,$day1,$year2,$month2,$day2);

J'essaie d'obtenir la différence en semaines (ex : 4 semaines et 3 jours) et en jours (ex : 31 jours) entre 2 dates via le module Date::Calc. J'obtiens l'erreur

"N_Delta_YMD" is not exported by the Date::Calc module

Cette fonction est pourtant décrite dans Date::Calc

Avez-vous une idée du problème? Merci.

[Jasmine80]

J'ai mis à jour le module et maintenant j'ai l'erreur

Date::Calc::Week_Number(): not a valid date at day_from_count.pl line 17.

Sur le CPAN il est mis

Week_Number
$week = Week_Number($year,$month,$day); # DEPRECATED

Que dois-je faire? Merci.

[Mr6]

La fonction d'après m'a l'air toute indiquée vu la description et les commentaires :

Code :

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

1
2
Week_of_Year
      ($week,$year) = Week_of_Year($year,$month,$day); # RECOMMENDED

Code :

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

1
2
3
4
5
6
7
-> $week = Week_Number($year,$month,$day);
 
This function returns the number of the week the given date lies in.
 
-> ($week,$year) = Week_of_Year($year,$month,$day);
 
This function returns the number of the week the given date lies in, as well as the year that week belongs to.

@+
Mr6

[Jasmine80]

Merci pour tes conseils mais ce que je veux c'est le nombre de semaines écoulées entre 2 dates, je vais simplement diviser mon nombre de jours par 7 et récupérer le modulo pour avoir le nombre de jours restant.

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Date::Calc qw(Today N_Delta_YMD Delta_Days);
 
 
 
my $start = '2009/10/17';
my ($year1,$month1,$day1) = split /\//, $start;
 
my ($year2,$month2,$day2) = Today([1]);
 
my ($Dy,$Dm,$Dd) = N_Delta_YMD($year1,$month1,$day1,$year2,$month2,$day2);
 
my $Dd_tot = Delta_Days($year1,$month1,$day1,$year2,$month2,$day2);
 
my $weeks = int($Dd_tot/7);
my $modulo_days = $Dd_tot%7;
 
print "start : $year1,$month1,$day1
today : $year2,$month2,$day2
$Dm mois,$Dd jour(s)
jours : $Dd_tot jour(s)
semaines : $weeks semaines, $modulo_days jour(s)\n";

Résultat

start : 2009,10,17
today : 2009,11,19
1 mois,2 jour(s)
jours : 33 jour(s)
semaines : 4 semaines, 5 jour(s)

[djibril]

Toujours penser à regarder les sources régulièrement mis à jours !

[Jasmine80]

Merci Djibril, il me semblait bien avoir déjà vu un des explications sur les manipulations de dates sur ce forum mais je ne les retrouvais pas dans la FAQ ^^ normal si c'était dans les codes sources

[Mr6]

Merci pour tes conseils mais ce que je veux c'est le nombre de semaines écoulées entre 2 dates, je vais simplement diviser mon nombre de jours par 7 et récupérer le modulo pour avoir le nombre de jours restant.

désolé, ton 2eme post m'a fait perdre de vue la question d'origine

@+
Mr6