find dato udfra uge nr

har lavet en selv...

Function findDate(lWeekRr, lDay)
'1=Sunday , 2=Monday, 3=Tuesday, 4=Wednesday, 5=Thursday, 6=Friday, 7=Saturday
    Dim lDato
    lDato = lWeekRr
    if lDay = 1 then lDato = date()+7
    findDate = lDato+(lDay-Weekday(lWeekRr))
end Function

response.Write findDate(date(), 2) 'Find mandag
response.Write findDate(date(), 1) 'Find søndag

ups opdagede lige en fejl...

sådan skal den være..

Function findDate(lWeekRr, lDay)
'1=Sunday , 2=Monday, 3=Tuesday, 4=Wednesday, 5=Thursday, 6=Friday, 7=Saturday
    Dim lDato
    lDato = lWeekRr
    if lDay = 1 then lDato = lWeekRr()+7 'HER ER EN ÆNDRING date() skulle være lWeekRr
    findDate = lDato+(lDay-Weekday(lWeekRr))
end Function