Public Function CountWorkDaysInPeriod(dtSt As Date, _
dtFn As Date, nbrWorkDay As Byte) As Integer
'получив даты начала и окончания периода,
'количество рабочих дней в неделе, функция возвратит количество
'рабочих дней в периоде
Dim i As Byte

'Пример вызова:
'? CountWorkDaysInPeriod (dtSt:= "03 . 12 . 02 ", dtFn:= "25 . 12 . 02 ", nbrWorkDay:= 5 )

For i =  1  To nbrWorkDay
    CountWorkDaysInPeriod = CountWorkDaysInPeriod + CountDaysOfWeekInPeriod(dtSt:=dtSt, dtFn:=dtFn, DayOfWeek:=i)
Next i
End Function

Public Function CountDaysOfWeekInPeriod(dtSt As Date, dtFn As Date, _
DayOfWeek As Byte, Optional FrstDayOfWeek As Byte =  2 ) As Byte
Dim Nvba As Byte
Dim nbrFrstDay As Byte
Dim nbrDays As Byte 'количество дней в обрабатываемом периоде

'Call:
'? CountDaysOfWeekInPeriod (dtSt:="11.08.02", dtFn:="28.10.02", DayOfWeek:=3)

nbrDays = DateDiff("d", dtSt, dtFn) + 1 'количество дней в периоде

'перевести переданный пользовательский номер дня в константу VBA
'например, если передали  среду (пользовательский порядковый номер -  3 ),
'то переводим ее в vbWednesday = 4: Nvba = (2(vbMonday) + 3 - 2) Mod 7 + 1
Nvba = (FrstDayOfWeek + DayOfWeek - 2) Mod 7 + 1

'первый день периода, соответсвующий искомому дню недели
'(попроще: на какое число приходится первая среда (в нашем примере))
nbrFrstDay = (Nvba - Format(dtSt, "w") + 7) Mod 7 + 1
'если nbrFrstDay =  1  - это дата начала периода (dtSt),  2  - второй день и т.д.

CountDaysOfWeekInPeriod = ( 7  + nbrDays - nbrFrstDay) \  7 
End Function

SELECT Holidays_t.Name, CountWorkDaysInPeriod([dtSt],[dtFn], 5 ) AS WorksDay
FROM Holidays_t;