Har hittat denna funktion, men får den inte att fungera:
Function GetFirstDayOfWeek(ByVal year As Integer, ByVal week As Integer) As Date
Dim dateTimeFormat As DateTimeFormatInfo = Culture.CurrentCulture
Dim cal As Calendar = dateTimeFormat.Calendar
Dim dt As Date
Try
If week >= 1 AndAlso week <= 53 Then
dt = New Date(year, 1, 1)
dt = dt.AddDays(-7) ' Ensure that we start before the first week
Dim weekOfYear As Integer = cal.GetWeekOfYear(dt, dateTimeFormat.CalendarWeekRule, dateTimeFormat.FirstDayOfWeek)
While weekOfYear <> 1
dt = dt.AddDays(1)
weekOfYear = cal.GetWeekOfYear(dt, dateTimeFormat.CalendarWeekRule, dateTimeFormat.FirstDayOfWeek)
' The following is a workaround for the bug described in Q200299,
' which is still present in .NET
If weekOfYear = 53 AndAlso cal.GetWeekOfYear(dt.AddDays(7), dateTimeFormat.CalendarWeekRule, dateTimeFormat.FirstDayOfWeek) = 2 Then
weekOfYear = 1
End If
End While
dt = dt.AddDays((week - 1) * 7)
weekOfYear = cal.GetWeekOfYear(dt, dateTimeFormat.CalendarWeekRule, dateTimeFormat.FirstDayOfWeek)
' The following is a workaround for the bug described in Q200299,
' which is still present in .NET
If weekOfYear = 53 AndAlso cal.GetWeekOfYear(dt.AddDays(7), dateTimeFormat.CalendarWeekRule, dateTimeFormat.FirstDayOfWeek) = 2 Then
weekOfYear = 1
End If
If weekOfYear = week Then
Return dt
End If
End If
Catch e As Exception
End Try
Return Date.MinValue
End Function
Får följande fel:
Dim dateTimeFormat As DateTimeFormatInfo = Culture.CurrentCulture <-- Property Culture is write only
Dim cal As Calendar = dateTimeFormat.Calendar <-- System.Globalization.Calendar cannot be converted to Projekt1.Calendar
cal.GetWeekOfYear <-- is not a member of Projekt1.Calendar
Nån som kan hjälpa mig?