<%'**********************************'함수:근무일(datebegin , date_end)'인자:datebegin,시작 날짜;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 %>
