http://www.perlmonks.org?node_id=597374


in reply to Date Calculation

Hi palette,

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

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/