Count number of Mondays between a range - Microsoft Community
Dim count As Integer. count = 0. For currentDay = startDate To endDate. If Weekday(currentDay, vbMonday) = dayOfWeek Then. count = count + 1. End If. Next currentDay. CountSpecificDay = count. End Function--
more
|