dato udfra ugenummer

Function UgeTilDato(aar,uge,dag)
  januar1 = DateSerial(aar, 1, 1)
  ugedagjan1 = Weekday(januar1, vbMonday)
  if ugedagjan1 <= 4 then
      ' 1. januar er i uge 1
      mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
  else
      ' 1. januar er i sidste uge foregående år
      mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
  end if

  mandagugex = DateAdd("ww", uge-1, mandaguge1)
  xdagugex = DateAdd("d", dag-1, mandagugex)
  UgeTilDato = xdagugex
End Function

------------------
Du kan fx sige sådan her:

response.write( CDate(UgeTilDato(2003, 6, 3)) )

så skal den vise noget i retning af (der vil måske være lidt variation, afh af hvordan din datovisning er konfigureret):
2003.02.05

Denne funktion er taget fra dette spørgsmål:
http://www.eksperten.dk/spm/313506 hvor det er jespernaur der har skrevet om den.

- Søgefunktionen er din ven! :-)

dna

Kanon det virker sgu.
Tak for hjælpen