Find number of Tuesdays in a given Month 2

[VickyC]

hello to all

I am struggling to write a function that does the following...

Function NumOfWDinMonth(datDateIn As Date, intDayOfWeek As Integer) As Integer

If I input datDateIn = #September 25, 2010# and intDayOfWeek = 3, the output should be 4 (because there are 4 Tuesdays in September, 2010).

Thanks in advance for any help.
VickyC

 

[dhookom]

Try something like:

Public Function NumWDInMonth(datDateIn As Date, intDayOfWeek As Integer) As Integer
    Dim datSOM As Date  'date of start of month
    datSOM = DateAdd("d", -Day(datDateIn) + 1, datDateIn)
    Do While Month(datSOM) = Month(datDateIn)
        If Weekday(datSOM) = intDayOfWeek Then
            NumWDInMonth = NumWDInMonth + 1
        End If
        datSOM = datSOM + 1
    Loop
End Function

Duane
Hook'D on Access
MS Access MVP

 

[TheAceMan1]

How are ya VickyC . . .

Another way ... simply supply any date in the month:

[blue]Public Function NTues(usrDate As Date) As Long
   Dim begDate As Date, endDate As Date
   
   endDate = DateSerial(Year(usrDate), Month(usrDate) + 1, 0)
   begDate = endDate - Day(endDate) + 1
   NTues = DateDiff("ww", begDate, endDate, vbTuesday) - Int(vbTuesday = Weekday(begDate))
End Function[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]