DateHelpers.vb

Public Class DateHelpers

    Public Shared Function GetNextWeekday(ByVal start As DateTime, ByVal day As DayOfWeek) As Integer

        Return (CInt(day) - CInt(start.DayOfWeek) + 7) Mod 7

    End Function

    Public Shared Function DateWeek(item As Date) As Integer

        Dim temp = DatePart(DateInterval.WeekOfYear, item, FirstDayOfWeek.Sunday, FirstWeekOfYear.FirstFourDays)

        Return temp

    End Function

End Class