17. februar 2010 - 23:11Der er
4 kommentarer og 1 løsning
Fejl i ugenumre
Jeg har forsøgt at bruge nedenstående kode til at generere ugenumre - det virkede fint de sidste par år - men ikke i år... HVORFOR???
og hvordan kommer det til at virke?? response.Write "<br><b>Uge nr. " & DatePart("ww",DateAdd("d",-1,rstemp("dato"))) response.write "</b><br>Uge nr. " & DatePart("ww",rstemp("dato"))
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Du kan prøve med DatePart("ww", rstemp("dato"), vbMonday, vbFirstFourDays), men ellers kan du selv regne det ud:
Function WeekNumber(year, mon, day) Dim a, y, m, JD, d4, L, d1 a = (14 - mon) \ 12 y = year + 4800 - a m = mon + 12 * a - 3 JD = day + (153 * m + 2) \ 5 + 365 * y + y \ 4 - y \ 100 + y \ 400 - 32045 d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461 L = d4 \ 1460 d1 = ((d4 - L) Mod 365) + L WeekNumber = d1 \ 7 + 1 End Function
Prøvede med DatePart("ww", rstemp("dato"), vbMonday, vbFirstFourDays), men virker den også de næste år? Jeg kan forstå at det er lidt specielt i år med ugerne. Der er flere der har lavet fejl i det. Har lige hørt om nogle af mine venner der har trykket et helt oplag af kalendre med forkerte ugenumre på :o(
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.