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
