Функция

[Tatooine]

В экселе есть функция "Рабдень" - указываешь дату начала отчета, количество дней что нужно приплюсовать и ссылку на список праздничных дней и эксель подсчитывает конечную дату исключая выходные и праздничные дни.
Как то же самое воплотить в аксессе? Так как аналогичной встроенной функции нет, то подскажите как написать аналогичную функцию на VBA.

[shanemac51]

эта тема совсем недавно была на одном из форумов
это была ваша тема или нет

[Tatooine]

Итоговый рабочий вариант функции, вдруг кому потребуется:

Public Function WeekDayCalc(StartDate As Date, Days As Integer, HolD As Range) As Date
Dim x As Date
Dim i As Integer
Dim s As Integer

x = StartDate: i = 0

Do

x = x + 1

For Each hd In HolD
If x = hd Or Weekday(x, 2) = 6 Or Weekday(x, 2) = 7 Then
s = 0
ElseIf x = hd Or Weekday(x, 2) >= 1 And Weekday(x, 2) <= 5 Then
s = 1
End If

If s = 0 Then
Exit For
End If
Next hd

i = i + s

Loop Until i = Days

WeekDayCalc = x

End Function