8) How can I add a week offset to a business date (including across year boundaries)?

             use Date::Calc qw( Business_to_Standard Add_Delta_Days
                                Standard_to_Business );

             @temp = Business_to_Standard($year,$week,$dow);

             @temp = Add_Delta_Days(@temp, $week_offset * 7);

             ($year,$week,$dow) = Standard_to_Business(@temp);
[download]

Phil

How do you define a business day? Is it weekdays? Or do you need to take into account public holidays and things like that?

Here's a naive approach that just leaves you needing to define an is_business_day() subroutine which takes a time (as an epoch seconds value) as an argument.

my $today = time;

my $days_added;
while (1) {
  $time += 24 * 60 * 60; # add a day

  $days_added++ if is_business_day($time);
  
  last if $days_added == 10;
}

print scalar localtime $time;
[download]

Update: As ikegami correctly points out below, there's a potential bug in this program if it's run across days that don't contain 24 hours (i.e. when switching to or from daylight saving time). The fix is to normalise the time to noon (assuming that timezone changes always occur overnight). This change is left as an exercise for the reader.

Not all days have 24 hours.

use Date::Calc qw/Add_Delta_Days/;
my @start = ( $year, $month, $day );
my @end = Add_Delta_Days( @start, 14 );
[download]

Look at Date::Calc.  There is a function Add_Delta_Days which may be close to what you need.

Additionally, there are some functions in it which deal specifically with business days:

      check_business_date
      Standard_to_Business
      Business_to_Standard
[download]

Updated : Sorry, Mistaken i suggest to add days i missed to read the word buisness days.

Use DateCalc module. DateCalc