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.