Nuværende uge + 7

Det kan du ikke i den forstand du nok gerne vil, da der er forskellige antal uger pr år. Men du kan gøre det ud fra dagsdato.

Uge = DatePart("ww", date())
Uge7 = DatePart("ww", dateadd("w",7,date()))

... også skal den sikkert køre med DK ugenummer reglen.

Uge = DatePart("ww", date(),vbMonday,vbFirstFourDays)
Uge7 = DatePart("ww", dateadd("w",7,date()),vbMonday,vbFirstFourDays)

Ahm når jeg kører
Uge7 = DatePart("ww", dateadd("w",7,date()),vbMonday,vbFirstFourDays)

Får jeg at vi er i uge 52

jeg har disse 2

Uge = DatePart("ww", date())-1
Uge2 = DatePart("ww", date())+7


den første finder nuværende uge nummer og den næste skulle så finde nuværende uge + 7 men det giver jo desværrer uge 58 hvilket ikke helt passer.

Min fejl. Der skal være to "w":

Uge7 = DatePart("ww", dateadd("ww",7,date()),vbMonday,vbFirstFourDays)

yes det virker, hvordan får jeg vist hvor mange uger der er i dette år?

Ved godt det er ud over dette spørgsmål men hvis du lige kender svaret sååååå.

Desværre ikke som kode, men det er noget med at tjekke hvilket ugenummer 31-12-åååå er. Hvis det er uge 1 (det kan det jo godt være), går man en uge tilbage og finder det ugenummer. Der kan så være visse regler/logik, som siger at der altid vil være 52 uger i det tilfælde, men det kan sikkert undersøges.

.o) <-- One Eyed Jack