datoer i uge

Vil du bare angive ugenummeret??? For så kan det ikke lade sig gøre. Du skal min også have året med.

Jaja, så året også...
Det skal så bare være det år man er i, i dette tilfælde 2004

Denne burde gøre det. Der finder du datoen for mandag i ugen. Så kan du selv gå frem i dagene med dateadd() funktionen. Går ud fra at du bruger fire-dags reglen til ugenummeret.

function findFirstDayOfWeek(FunkWeek,FunkYear)
d = DateSerial(FunkYear, 1, 1)
If DatePart("ww", d, vbMonday, vbFirstFourDays) = 1 Then
  While(DatePart("w", d, vbMonday, vbFirstFourDays) <> 1)
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, vbMonday, vbFirstFourDays) <> 1)
    d = DateAdd("d", 1, d)
  WEnd
End If
findFirstDayOfWeek = DateAdd("d", 7*(FunkWeek-1), d)
end function

MyMonday = findFirstDayOfWeek(39,2004)
response.write MyMonday
response.write dateadd("d",1,MyMonday)
response.write dateadd("d",2,MyMonday)
response.write dateadd("d",3,MyMonday)
response.write dateadd("d",4,MyMonday)

Jeg har faktisk fikset det selv...

Men du må godt få point for forsøget .:=)