Find Dato / måned udfra uge og år

Næ, det siger ikke sig selv. Er fx uge 7 i år 2004 en onsdag?

altså... startdato og slut dato... i ugen....

Det kan ikke gøres direkte med de indbyggede funktioner. Lav i stedet en funktion, som prøver sig frem. Den simpleste form tager året forfra, fra 1. januar, og finder ugenr med DatePart. Sammenlign det derved fundne ugenr. med det oprindelige ugenr. og loop videre til der er bingo.

Det skulle have været et svar

Prøv at tage et kig på dette.... Husk på at ikke alle dage i en uge behøves at være i samme månede...:

uge = 29
aar =  2002


d = DateSerial(aar, 1, 1)    ' 1/1/i år

'find mandag i uge 1
If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
  While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
  WEnd
End If

'd er nu mandag i uge 1
d = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag


Response.Write "Følgende gælder for uge " & uge & ", år " & aar & "<br>"
Response.Write "Mandag i ugen er " & FormatDateTime(d, 1) & "<br>"
Response.Write "Mandag er i månede " & Month(d) & "<br>"


d = DateAdd("d", 6, d)  'juster til ugenummer, søndag
Response.Write "Søndag i ugen er " & FormatDateTime(d, 1) & "<br>"
Response.Write "Søndag er i månede " & Month(d) & "<br>"

jeg har ikke tid til at teste det lige nu... men tak for svarene.. jeg vender tilbage med status idag.. eller mandag.

Det ser vist ud til at virke fint...

tak for hjælpen.

Det var så lidt