Select Code to Download

$delta=Delta_Format(DateCalc($start_date_parsed,$end_date_pa
+rsed),'',"%dt"); # changed from %dv

use strict;
use Date::Manip;
...
  print $date1->printf("%m-%d-%Y")."\n";
  $date1->next_business_day(1);
}