Re: Re: counting number of working days

I am new to perl programming so with my little knowledge I tried to use Date::Calendar->delta_workdays() but I am getting errors which I am not able to usnderstand. In first case when I use following code -
----

#!perl -w
use Date::Calendar;
use Date::Calendar::Profiles qw( $Profiles );
my $calendar = Date::Calendar->new();
#use strict;
use warnings;
my $date1='16-02-2004';
my $date2='23-02-2004';
my $days = $calendar->delta_workdays($date1,$date2,0,0); print "count is $days\n";
----
--
I am getting following error -
Date::Calendar::delta_workdays(): not enough input parameters for a date at test.pl line 9

When I read the document, it seemsthe format in which I am supplying vars are valid

Comment on Re: Re: counting number of working days

Replies are listed 'Best First'.
Re: Re: Re: counting number of working days by edan (Curate) on Feb 16, 2004 at 13:48 UTC
I have never used the modules I mentioned - I just know that other people have suggested using them for their Date/Time processing needs. But since you asked, I installed them, and threw the following together, which works: `#!/usr/bin/perl -l use Date::Calendar::Profiles qw( $Profiles ); use Date::Calendar; my $cal = Date::Calendar->new( $Profiles->{US} ) or die "no calendar\n"; my $days = $cal->delta_workdays( 2004, 2, 11, # first date 2004, 2, 18, # second date 1, # include first date 0); # exclude second date print "days: $days";` [download] The example prints the number of US workdays from Feb. 11, 2004 to Feb. 18, 2004, which is 4 (Presidents Day!). HTH -- edan (formerly known as 3dan)	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: counting number of working days
by edan (Curate) on Feb 16, 2004 at 13:48 UTC

I have never used the modules I mentioned - I just know that other people have suggested using them for their Date/Time processing needs. But since you asked, I installed them, and threw the following together, which works:

#!/usr/bin/perl -l

use Date::Calendar::Profiles qw( $Profiles );
use Date::Calendar;

my $cal = Date::Calendar->new( $Profiles->{US} )
    or die "no calendar\n";

my $days = $cal->delta_workdays(
    2004, 2, 11,   # first date
    2004, 2, 18,   # second date
    1,             # include first date
    0);            # exclude second date

print "days: $days";
[download]

The example prints the number of US workdays from Feb. 11, 2004 to Feb. 18, 2004, which is 4 (Presidents Day!).

HTH
--
edan (formerly known as 3dan)

[reply]
[d/l]