Полезные функции для работы с датами

Первый день текущего месяца
Me!FirstDay = DateSerial(Year(Now()), Month(Now()), 1) 

Последний день текущего месяца
Me!LastDay = DateSerial(Year(Now()), Month(Now()) + 1, 0)    

Определение дат начала и конца прошедшей недели
Me!FirstDayOfWeek = Now() - WeekDay(Now(), _ vbUseSystemDayOfWeek) - 6 Me!LastDayOfWeek = Now() - WeekDay(Now(), _ vbUseSystemDayOfWeek)    

Процедура для подсчета рабочих дней между двумя датами, но она не учитывает праздничные дни:
Sub SkipWeekend() 
Dim DayOfMonth As Date, Counter As Integer  

Counter = Me!EndDay + 1 - Me!StartDay DayOfMonth = Me!StartDay  
Do While DayOfMonth <= Me!EndDay 
    Select Case WeekDay(DayOfMonth) 
      Case vbSaturday, vbSunday Counter = Counter - 1  
    End Select DayOfMonth = DayOfMonth + 1 
Loop Me!CountOfDay = Counter 
End Sub