veckofunktion

Behöver lite hjälp här. :)
Skickar in ett datum, en vecka, ett veckodag och ska få ut datumet.
I detta fall skickar jag in dagens datum, vecka 34, veckodag 6(=lördag)
Jag ska alltså få ut: 2002-08-24

Public Function get_Weekday(Current_year, Current_week, Current_weekday)
Dim Current_date
Current_week = Current_week-1
Current_year = Year(Current_year)
Current_date = Current_year & "-01-01"
    Do Until DatePart("WW", Current_date, 2, 2) = Current_week
    Current_date = DateAdd("D", Current_weekday, Current_date)
    Loop
get_Weekday = Current_date
End Function

Response.Write get_Weekday("2002-08-27", 34, 6)

Bara jag som är yr i bollen :h
Här är korrekt funktion om nån behöver.

Public Function get_Weekday(Current_year, Current_week, Current_weekday)
Dim Current_date
Current_weekday = Current_weekday-1
Current_year = Year(Current_year)
Current_date = Current_year & "-01-01"
    Do Until DatePart("WW", Current_date, 2, 2) = Current_week
    Current_date = DateAdd("D", 1, Current_date)
    Loop
    Current_date = DateAdd("D", Current_weekday, Current_date)
get_Weekday = Current_date
End Function

Response.Write get_Weekday("2002-08-27", 34, 6)

Är det bara jag som undrar vad denna funktion gör :OO

Den är till för om du vet veckonumret och vill ha ut ett datum i den veckan.
Måndagen vecka 34 är tex 2002-08-19
Att man kan välja dag i veckan la jag in som tillval bara.

Säkert finns det enklare sätt, ni får gärna posta den koden i så fall.

Varför måste du skicka med veckonumret?
Det kan man ju räkna ut mha datumet...

Jo, men om du inte har ett datum för aktuell vecka, datumet skickas in bara för att få ut året:
get_Weekday(Date(), 23, 4) ger torsdagen den 6 juni