First Friday of the Month

[royalcheese]

Hi all im trying to find the first friday in specified year / month . The code below adds 6 days on but i think im interperating the DateInterval.day wrong.

Date_CurrentFriday1 = Format(DateAdd(DateInterval.Day, FirstDayOfWeek.Friday, DateSerial(RDyear, RDmonth, 1)), ShortFormat)

[\code]

 

[Borvik]

Here's a quick and dirty function I threw together that should do the job:

    Private Function FirstFriday(ByVal month As Integer, ByVal year As Integer) As Date
        Dim d As New Date(year, month, 1)
        While d.DayOfWeek <> DayOfWeek.Friday
            d = d.AddDays(1)
        End While
        Return d
    End Function

I'm not sure if you can do that with DateAdd.