set startDate to date ("1 - 2 - 2010")
set endDate to date ("3 - 4 - 2010")
set BD to CountBusinessDays(startDate, endDate)
set wd to CountWeekDays(startDate, endDate)
return {BD, wd}
on CountBusinessDays(aDate, endDate)
set dayCount to 0
repeat until aDate > endDate
if weekday of aDate is not in {Saturday, Sunday} then set dayCount to dayCount + 1
set aDate to (aDate + 1 * days)
end repeat
return dayCount
end CountBusinessDays
on CountWeekDays(aDate, endDate)
set dayCount to 0
set dayNumber to weekday of aDate as integer
set totalDays to (endDate - aDate) / days
repeat totalDays times
set dayNumber to dayNumber + 1
if dayNumber = 8 then set dayNumber to 1
-- assumes Sunday is 1, Saturday is 7
if dayNumber is not in {7, 1} then set dayCount to dayCount + 1
end repeat
return dayCount
end CountWeekDays