find dato ud fra uge nr.

Jeg har lige lavet en funktion der skulle kunne det du har brug for:

<%

Function getDate(ByVal weekNr, ByVal startDate)

    If Not isDate(startDate) Then Exit Function
   
    dato = CDate(startDate)
   
    Do While DatePart("ww", dato, vbMonday, vbFirstFourDays) <> weekNr
   
        dato = DateAdd("d", 1, dato)
       
    Loop
   
    getDate = dato

End Function


'Eksempel: Funktionen kaldes med to parametre: Ugenr og startdato

Response.Write(getDate(31, "02-03-2002"))

%>

Funktionen bruges ved at man angiver det ugenr man skal have datoen på, samt den dato man ønsker at starte fra. Hvis man vil bruge dags dato, angives Date() eller Now().

Kanon!!  Det virker fint

Takker

selv tak :)