Find dato, hvordan?

Man kan lave en function som denne som ud fra uge nummer og årstal finder datoen for mandagen:


function findMandag(uge,aar)
d = DateSerial(aar, 1, 1)    ' 1/1/i år
'find mandag i uge 1
If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
  While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
  WEnd
End If
findMandag = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag
end function

ugenr = 7
aartal = 2005
response.write "Uge " & ugenr & "<br>"
response.write "Mandag d. " & findMandag(ugenr, aartal)

Cool tak!