How to find business days?

[cosmicsoup]

Monks

I have two dates, startdt and an enddt. I would like to find the number of business days between these two dates. Would anyone know the best solution for this?

Example:
startdt = 2004-02-01
enddt = 2004-02-10
It has taken 7 business days to complete.

Thanks,
Louis

[dragonchild]

Date::Calc is your friend here. You want to look at days whose day-of-week ($dow) is less than 5.

[Enlil]

You might want to take a look at Date::Calendar (delta_workdays), depending on how you want to define a workday (i.e. holidays might not be workdays).

-enlil

[CountZero]

But unless there is already a Date::Calendar::Profiles module available you still have to provide your own Calendar.

[fuzzyping]

What working code do you already have in place? Date::Calc has a bunch of functions that will be of use to you.

Example:

(Day_of_Week($year,$month,$day) < 6)

[cosmicsoup]

Hi. The working code that I have right now only as values for start and end dates. It would be simpler if I could have a number of days instead of just having those days listed.

Louis

[leriksen]

Have a look at datetime.perl.org , its so fresh and new !

or

Date::Business, though that hasn't changed for a long time

[adrianh]

The wonderful DateTime modules are your friend.

use DateTime;
use DateTime::Event::Recurrence;

my $working_days = DateTime::Event::Recurrence->weekly( days => [1 .. 
+5] );

my $start = DateTime->new(year => 2004, month => 2, day => 1 );
my $end = DateTime->new(year => 2004, month => 2, day => 10 );

my $num_days = $working_days->as_list( start => $start, end => $end );
print $num_days;

[Roger]

Don't forget about the holidays.

That's slightly trickier, you need some sort of database or lookup table that contains all the holidays. In the bank I am working at, we use the infinity system, which provides a table in the database with holidays.

Update: I see somebody has already mentioned the Calendar and Calendar profile modules. Never mind then.

[zentara]

Here is a snippet which calculates "working days" between 2 dates. It takes local holidays into account as well. It was posted here a few weeks ago.

#!/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";

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

[cosmicsoup]

Monks

Thank you to all that have responded to help me with this. I'm afraid that I'm still confounded. Mostly because my administrator only has Date::Manip installed.

I'm reading in a file that has in it, among other things a start and end date for Many records:


$id, ... $startdt, $enddt, ...

I'm currently only doing a datediff between $startdt and $enddt, but I need to filter out weekends. Would anyone have any examples using Date::Manip's weekdays?

As always, any help is appreciated!

Louis

[Beau Landeaux]

Several date routines (C, Perl, Awk) for holidays, business days, nth day of month, number of days since or until can be found on http://www.OrlandoKuntao.com/holidays.html and http://www.OrlandoKuntao.com/dateplus.html.