雖然看起來是一個小問題，但很不幸的是在Access中沒有直接的函數支持(Excel中有一個現成的函數：NETWeekdays)。所以非得自己做點開發

　　第一步：創建一個自定義的函數

　　Public　Function　WeekDayCount(firstDate　As　Date,　LastDate　As　Date)　As　Integer

　　'計算工作日天數

　　On　Error　GoTo　Err:

　　Dim　i　As　Integer

　　Dim　TempDate　As　Date　　　　'臨時日期

　　Dim　Tempts　As　Long

　　Tempts　=　DateDiff("d",　firstDate,　LastDate)

　　For　i　=　0　To　Tempts

　　TempDate　=　DateAdd("d",　i,　firstDate)

　　Select　Case　Format(TempDate,　"w")

　　Case　2,　3,　4,　5,　6

　　WeekDayCount　=　WeekDayCount　+　1

　　End　Select

　　Next

　　Err:

　　Exit　Function

　　End　Function

　　第二步：然后在查詢中使用如下語句

　　SELECT WeekDayCount(開始日期,結束日期) AS 工作日天數, *

　　FROM orders;