Uge nr function virker ikke
Jeg kan ikke gennemskue functionen her.Men den giver uge 36 hvor den skulle give 24 i dag (11-6-2019)
Det kan vel ikke have betydning at datoen fra min server ser sådan her ud:
now() = '6/11/2019 7:40:29 PM'
hvor vi jo bytter dag 0g måned '11/6/2019'
Function WeekNumber(D)
Dim Day1
Day1 = DateSerial(Year(D),10,1)
While Weekday(Day1) <> 2
If Day1 > D Then Day1 = DateSerial(Year(D)-1,10,1)
Day1 = DateAdd("d",1,Day1)
Wend
WeekNumber = DateDiff("w",Day1,D) + 1
End Function