vecka till datum

halåjs!
vore tacksam om någon ville snickra ihop en funktion åt mig som
konverterar en vecka till denne veckas första dags datum, typ:

week = "21"

week = convert(week)
response.write week 'ska då bli 2002-05-20

function convert
????????
end function

alltså, jag matar in en vecka och får ut måndagens datum
hur kan funktionen se ut?

testa...

vecka = datepart("ww",date,vbMonday,vbFirstFourDays)
ar=Year(Date)
	
Datum= ar &"-01-01"
      Do Until DatePart("ww", Datum, 2, 2) = vecka
      Datum = DateAdd("d", 1, Datum)
Loop
Response.Write "vecka "& vecka &" börjar med: "&Datum

kanoon!
ett problem till bara, den buggar.

jag har veckan i sql-databasen och kolumnen är en Int.
när jag sedan kör "konverteringskoden" så blir det en
evighetsloop, förmodligen därför att veckan är talformat, eller?

myWeek = myArray(Week,0) 'ex 21
myday= Year(Date) &"-01-01"
    Do Until DatePart("ww", myday, 2, 2) = myWeek
    myday = DateAdd("d", 1, myday)
Loop

Använd Cint() på värdet från databasen då.

Det var bara för att vissa poster är utan vecka.
Jag slängde dit en isNumeric så ordnade allt sig.

Muchas gracias!