RTFM!

Function IsWorkday(Optional dteDate As Date) As Boolean
' This function determines whether a date
' falls on a weekday.

' If no date passed in, use today's date.
If CLng(dteDate) = 0 Then
dteDate = Date
End If

' Determine where in week the date falls.
Select Case Weekday(dteDate)
Case vbMonday To vbFriday
IsWorkday = True
Case Else
IsWorkday = False
End Select
End Function

Только на самом деле нужно учитывать, что у этих буржуинов выходные дни не всегда те, что у нас, и второе - нужна еще дополнительная таблица, куда заносишь дополнительные выходные дни, которые может вводить отдел кадров или наше доблестное правительство. Примерно так.