First Dagen på veckan

jag kom på det själv

week == vecka
y == år
dag = WeekNrToDate(week,y,1)

Function WeekNrToDate(varWeekNr,varYear,varDayNr)
varWeekNrThisYear = DatePart("ww",Cdate(varYear&"-01-01"),2,2)
If varWeekNrThisYear = 1 Then
varDayAdd = 0-(DatePart("w",Cdate(varYear&"-01-01"),2,2)-1)
Else
varDayAdd = 8-DatePart("w",Cdate(varYear&"-01-01"),2,2)
End If
varDayAdd = (7*(varWeekNr-1))+varDayAdd+(varDayNr-1)
WeekNrToDate = DateAdd("d",varDayAdd,Cdate((varYear&"-01-01")))
End Function

Lämpligast via en funktion! :)

<%
	Dim curYear, curWeek, curDay
	curYear = 2007
	curWeek = 23
	curDay = 1
	
	Response.Write(getWeekday(curYear, curWeek, curDay))
	
	
	
	'Hämtar vald dag i vald vecka ==============================================
	Public Function getWeekday(Byval Current_year, Byval Current_week, Byval Current_weekday)
		Dim Current_date
		Current_weekday = Current_weekday-1
		Current_date = Current_year & "-01-01"
		Do Until DatePart("WW", Current_date, 2, 2) = Current_week
			Current_date = DateAdd("D", 1, Current_date)
		Loop
		getWeekday = DateAdd("D", Current_weekday, Current_date)
	End Function
%>

Med curDay kan du välja vilken dag i veckan du vill ha ut, 1 för måndag, 2 för tisdag osv.

/red: du kom visst på en lösning själv! :)