Date hantering

Jag har en sida som man väljer vecka på. för att ta ut aktiv vecka så skapar jag bara en Date som jag formaterar
Year(MyDate)
DatePart("ww", MyDate)

Nu är det så att när jag laddat om sidan behöver jag ta ut dagen först i den veckan, jag vill alltså skapa ett nytt date objekt baserat på året och veckan

Hur gör jag detta?

nånting i stil med denna borde funka, den här tar ut första dagen i denna vecka.
du borde kunna byta ut date mot din variant.

firstday = date - weekday(date,vbMonday) + 1

Men hur får jag ett Date objekt av min vecka och mitt år?
Jag har en sträng "2002" och en vecka "12", hur får jag det att bli ett date object?

Alternativt: Hur drar jag av/lägger till veckor på ett dateobject eller ändrar ett dateobjekt till ett annat datum ?

option explicit
function getDateFromWeek(yearNo,weekNo)
dim firstDayOfYear,firstDayInFirstWeek,firstWeek,weeksToAdd

firstDayOfYear = cdate(cstr(yearNo) & "-01-01")
firstDayInFirstWeek = firstDayOfYear - weekday(firstDayOfYear,vbMonday) + 1
firstWeek = datepart("ww",firstDayOfyear,vbMonday,vbFirstFourDays)
if  firstWeek = 1 then
    weeksToAdd = weekNo - 1 
else
    weeksToAdd = weekno
end if

getDateFromWeek = dateAdd("ww",weeksToadd,firstDayInFirstWeek)
end function

dim firstDate,lastDate,yearNo,weekNo
yearNo = 2002
weekNo = 11
 
firstDate = cdate(getDateFromWeek(2002,11))
lastDate = firstDate + 6

response.write "Vecka nummer " & weekNo & " börjar " & firstDate & " och slutar " & lastDate