Find dato ud fra ugenr

Min hjerne er lige gået i stå :o(

Jeg har selv lavet det før, men lige nu kan jeg ikke tænke, så I får lov at gøre det for mig.

Jeg skal bruge en funktion, som retunerer dato på den fredag, som findes i en given uge.

Public Function FindDato(År as Integer, Uge as Byte) as date
  FindDato = ???
End function

Funktionen skal kunne kaldes således:
FindDato(2002, 3)
for at finde fredagen i uge 3, år 2002

pfh tak :o)
/Thomas