Vis ugenumre det næste år

Fra dagsdato??

ja og så fra først kommende mandag

Noget i denne stil:

Function getWeekNr(FunkDate)
dim returval
  returval = datepart("ww",FunkDate,2,2)
  if returval > 52 then
    if datepart("ww",dateadd("d",7,FunkDate),2,2) = 2 then returval = 1
  end if
  getWeekNr = returval
End Function

dim dato, fDato, f
dato = date- (weekday(date,2)-1)
for f=1 to 53
    fDato = dateadd("d",7*f,dato)
    Response.write getWeekNr(fDato) &" "& year(fDato) & "<br>"
next

Læg mærke til at jeg bruger en funktion til at finde ugenummeret. Der er nemlig en fejl i den indbyggede funktion i ASP, som der skal bruges dette workaround til at løse.

Det ser næsten rigtig ud tror dog at der er en lille fejl ved den sidste uge i 2007

52 2007
1 2007
2 2008


kan du lave det så det bliver rettet til 1 2008 (men jeg er selvf godt klar ogat uge 1 starter i år 2007

Så modificere vi løkken lidt:

dim dato, fDato, f, fYear, fWeek
dato = date- (weekday(date,2)-1)
for f=1 to 53
    fDato = dateadd("d",7*f,dato)
    fWeek = getWeekNr(fDato)
    fYear = year(fDato)
    if fWeek = 1 then
        if getWeekNr(fDato+7)=2 and year(fDato+7)<>fYear then fYear = year(fDato+7)
    end if
    Response.write fWeek &" "& fYear & "<br>"
next

Kan da gøres lidt kortere:

for f=1 to 53
    fDato = dateadd("d",7*f,dato)
    fWeek = getWeekNr(fDato)
    fYear = year(fDato)
    if fWeek = 1 then fYear = year(fDato+7)
    Response.write fWeek &" "& fYear & "<br>"
next

Ja det ser rigtig ud kommer du med et svar ?

.o) <-- One Eyed Jack