Hej!

Jag behöver hjälp att översätta denna kod till VB.net. Just nu funkar inte min HJärna

<code>
function getMonday(y, w)
'Vilken dag i veckan är 1a januari det valda året?
weekDayJanFirst = datepart("w", y & "-01-01", 3)

'Plocka ut måndagen i den valda veckan
mondayOfWeek = dateAdd("d", w * 7 - weekDayJanFirst, y & "-01-01")

getMonday = mondayOfWeek
end function
'Låt oss skriva ut datumet för måndagen vecka 5 år 2006
response.write getMonday(2006, 5)

</code>

Det är DatePart som jag inte lyckas få till.

/Tyronne

Function getMonday(ByVal y As String, ByVal w As Integer)
Dim monday As String
Dim week As Integer
week = w - 1

monday = DatePart(DateInterval.Weekday, CDate(y & "-01-01"), FirstDayOfWeek.System)
getMonday = DateAdd(DateInterval.Day, week * 7 - (monday - 1), CDate(y & "-01-01"))
End Function

response.write getMonday("2006", 5)

Supertack!

/Tyronne