Public Shared Function GetStartSunday(ByVal startDate As DateTime) As String Dim tmpStartSundayDate As String = startDate.ToString() Dim FindSunday As String For i As Integer = 0 To 6 If FindSunday = DayOfWeek.Sunday.ToString() Then ' return Sunday Date/Time Exit For End If Next