Count number of mondays

[SamT]

Function SamT_CountMondays(ByVal StartingDate As Date, ByVal EndingDate As Date) As Long

CountMondays = (EndingDate - StartingDate) / 7 + Abs(Weekday(StartingDate, vbMonday) = 1)
     
End Function