Uge oversigt..

Mangler du en funktion der returnere ugenummer ud fra en given dato. ?

nej jeg mangler en funktion der returnere en ugerække f.eks.
Jeg vælger uge 8 og så kommer der i tabellen mandag 18/2-tirsdag 19/2 -> frem til fredag

Jow. !

ANYBODY?

jeg har fundet ud af det...

Må vi se. ?

Ok - 200 point var da værd at kæmpe for - så du var åbenbart hurtigere end mig - men her er min alligevel.

<%
function FirstDateInWeek(AYear, AWeek)
  ' Find første dato i uge 1 i år
  VD = DateSerial(AYear, 1, 1)
  ' Da DatePart uge 1 starter den 01-01-Year så kør frem til uge 2
  do while DatePart("ww", VD) <> 2
    VD = DateAdd("d", 1, VD)
  loop
  ' Gå en uge tilbage og vi har første dato i uge 1
  VD = DateAdd("ww", -1, VD)
  ' Adder antallet uger og vi har første dato i uge: AWeek
  FirstDateInWeek = DateAdd("ww", AWeek - 1, VD)
  ' Korriger for ugestart fra Søndag til Mandag
  FirstDateInWeek = DateAdd("d", 1, VD)
end function

TheYear = 1997
TheWeek = 1
FirstDate = FirstDateInWeek(TheYear, TheWeek)
LastDate = DateAdd("ww", 1, FirstDate)
Response.Write("Uge: " & TheWeek & " i år: " & TheYear & " ligger fra den: " & FirstDate & " til den: " & LastDate & "<br>")
%>

Vær opmærksom på at DatePart har et år 2000 problem - netop i år 2000 regner den en uge forkert.

hehe jeg var også selv lige på netcoders.dk og kigge så mit er ik så langt fra dit ;)