VB.NET - Given a date, how can I get the date of the following friday?

Question

Given a Date, how can I get the date of following Friday (or any other weekday) in VB.NET in .NET Framework 2.0?

Answer 1

Dim NextFriday as Date= GetNext(DayOfWeek.Friday) 

Function GetNext(ByVal d As DayOfWeek, Optional ByVal StartDate As Date = Nothing) As Date
    If StartDate = DateTime.MinValue Then StartDate = Now
    For p As Integer = 1 To 7
        If StartDate.AddDays(p).DayOfWeek = d Then Return StartDate.AddDays(p)
    Next
End Function

Edit: Updated the answer to allow a startdate (optional).

Get next friday:

Dim NextFriday As Date = GetNext(DayOfWeek.Friday)

What is the next friday after 15 days from now:

Dim AnotherFriday As Date = GetNext(DayOfWeek.Friday,now.addays(15))

Answer 2

'
Public Function nextDOW(whDayOfWeek As DayOfWeek, _
                        Optional theDate As DateTime = Nothing) As DateTime
    'returns the next day of the week
    If theDate = Nothing Then theDate = DateTime.Now
    Dim d As DateTime = theDate.AddDays(whDayOfWeek - theDate.DayOfWeek)
    Return If(d <= theDate, d.AddDays(7), d)
End Function

Answer 3

Dim someDate As DateTime = ... 'input date
Dim nextFriday As DateTime = someDate
While nextFriday.DayOfWeek <> DayOfWeek.Friday
    nextFriday = nextFriday.AddDays(1)
End While

Console.WriteLine(nextFriday)