% '****************************** '函數：workdays(date_begin , date_end) '參數：date_begin,開始日期；date_end,結束日期 '作者：阿里西西 '日期：2007/7/15 '描述：計算兩個時間內的工作日 '示例：workdays("2007-05-18" , "2007-05-21") '****************************** function workdays(date_begin , date_end) date_begin = CDate(date_begin) date_end = CDate(date_end) if IsDate(date_begin) and IsDate(date_end) then workdays = 0 for d=0 to datediff("d" , date_begin , date_end) if weekday(date_begin + d) > 1 and weekday(date_begin + d) > 7 then workdays = workdays + 1 end if next else workdays = "未知" end if end function %>
