Finding week-number from selected dtae in calendar

[ReidarT]

How do I find the weeknumber from a selected date from the calendar?
regards
reidarT

 

[Stefan]

Hello,

here an example for culture "nl-Be"

kind regards,

Stefan

Public Function BepaalWeeknummer(ByVal x As Date) As String

Dim myCI As New CultureInfo("nl-BE")

Dim myCal As Calendar = myCI.Calendar

Dim myCWR As CalendarWeekRule = myCI.DateTimeFormat.CalendarWeekRule.FirstFourDayWeek

Dim myFirstDOW As DayOfWeek = myCI.DateTimeFormat.FirstDayOfWeek

If x.ToString <> "" Then

Return myCal.GetWeekOfYear(x, myCWR, myFirstDOW).ToString()

End If

End Function