Date by Week nr?

[Snowjim]

Hey I have tryed to get date(Monday) by a week nr and year but this do not always work. Here is my code Public Function getDateByWeekNr(ByVal inWeekNr As Integer, ByVal inYear As Integer) As DateTime Dim cal As New System.Globalization.GregorianCalendar Dim dTime As DateTime dTime = New DateTime(inYear, 1, 1) For i As Integer = 0 To 365 If dTime.DayOfWeek = DayOfWeek.Monday Then Exit For Else dTime = dTime.Subtract(New TimeSpan(24, 0, 0)) End If Next Return cal.AddWeeks(dTime, inWeekNr) End Function what am i doing wrong?

[sathish s]

You could use something like this [CODE] Dim dTime As DateTime dTime = New DateTime(2006, 1, 1) Dim wkCtr As Integer Dim inWk As Integer While 1 If dTime.DayOfWeek = DayOfWeek.Monday Then wkCtr += 1 End If If dTime.DayOfWeek = DayOfWeek.Monday And wkCtr = inWk Then Exit While End If dTime = dTime.AddDays(1) End While [/CODE]

[Snowjim]

Thanks, i will tray that, is this working even if the1 week of a year started last year?

[Snowjim]

Thanks, i will try that, is this working even if the1 week of a year started last year?

[Snowjim]

Thanks, i will try that, is this working even if the week of a year started last year?

[sathish s]

Glad to help you. This will give you the Nth Monday of an year.