break on
 

$excludeddates=GetUSHolidays("Federal")
$eventdate="2012/01/31"
$today=@date
 

$days=serialdate($eventdate)-serialdate($today)
? "Total Days:  " + $days
 

for $i= serialdate($today) to serialdate($eventdate)
  if $i mod 7 = 6 or $i mod 7 = 0 or ascan($excludeddates,serialdate($i))>-1
    $days=$days-1
  endif 
next
? "Days, excluding Holidays and Weekends:  " + $days