Avatar billede loukas Mester
11. juni 2019 - 19:53 Der er 4 kommentarer

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
Avatar billede claes57 Ekspert
11. juni 2019 - 20:03 #1
i stedet for at kalde
WeekNumber (now())
så prøv med
WeekNumber (format(now(),"dd mmm yyyy")
det vil  skrive måned i tekst, så windows måske kan finde ud af rækkefølgen i dag og måned.
Avatar billede loukas Mester
11. juni 2019 - 20:50 #2
OK
response.write WeekNumber("11/06/2019")
Bliver til 5

response.write WeekNumber("6/11/2019")
Bliver til 36

fejlen må være i functionen et sted
Avatar billede loukas Mester
11. juni 2019 - 20:53 #3
aaarhh.
DatePart("ww", Now())
giverf 24 :-)
Avatar billede loukas Mester
11. juni 2019 - 20:54 #4
kunne heller ikke forstå at der ikke var en vbscript func til det
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester