veckofunktion

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