Convert date to week no

[winsonlee]

080211 - 080217 - WEEK 7
080218 - 080224 - WEEK 8

I have two dates and how can I determine which week does the two date falls on ?

Eg

weekno = getWeek('080218','080224')
'weekno contains 8

    Private Sub getWeek(ByVal startDate As String,ByVal endDate As String)  


          return weekNo
    End Sub

 

[JohnH]

Dim dt As Date = Date.Today
Dim gc As New Globalization.GregorianCalendar
Dim week As Integer = gc.GetWeekOfYear(dt, Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)