Fra uge til dato

Det kan ikke lade sig gøre uden også at have året med...

Denne skullle gerne finde mandagen i ugen:

Function MondayOfWeek(ugenr, aar)
  MondayOfWeek = DateAdd( "ww", ugenr, "1/1/" & aar )
  Ugedag = Weekday(MondayOfWeek)
  if Ugedag <> 7 then
    select case Ugedag
      case 1,2,3,4,5,6
        MondayOfWeek = DateAdd("d", 7-Ugedag, MondayOfWeek)
      case 0
        MondayOfWeek = DateAdd("d", -1, MondayOfWeek)
    End Select
  end if
  MondayOfWeek = dateadd("d",-5,MondayOfWeek)
end Function

Response.write "<br><br>"& MondayOfWeek(9,2005)

Jeg forstår godt det med år!

Tak for koden, men der mangler stadig lidt for at udløse point, da den også skal kunne finde dato på en søndag!
"
Skriver jeg der i mod "3" i slutuge skal den finde ud af at det er d. 23-01-2005 (Søndag)
"

En lille ting mere er at hvis jeg har en dato kan den så nemt finde ud af hvilken uge det er i!

Hvis du vil have en søndag også, laver du bare en dateadd (kan evt smides i en funktion).

Response.write "Mandag: "& MondayOfWeek(9,2005)
Response.write "Søndag: "& dateadd("d",6,MondayOfWeek(9,2005))

Og det er nemt at finde ugenummer ud fra en dato:
Response.write "Ugenr: "& datepart("ww",date(),vbMonday,vbFirstFourDays)

vbMonday og vbFirstFourDays er med for at fortælle systemet hvad der er første dag i ugen, og hvilken regel, der skal bruges til at finde ugenummeret.

Det er bare helt perfekt!

Mange tak