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
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.
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
loukas Mester
11. juni 2019 - 20:53 #3
aaarhh.
DatePart("ww", Now())
giverf 24 :-)
loukas Mester
11. juni 2019 - 20:54 #4
kunne heller ikke forstå at der ikke var en vbscript func til det
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

Opret Preview

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





Premium
Test: Apples nye iPhone er bygget til fart og stil: Så gode er iPhone 12 og iPhone 12 Pro
Computerworld tester: IPhone 12 og iPhone 12 Pro er bygget til fart og til at se godt ud. Varen leveres stilsikkert, men noget er overset i farten.
Computerworld
Salling Group lukker stor online-satsning efter kun et år
Millionsatsningen Fillop lukker ved årets udgang. I stedet er supermarkeds-giganten Salling Group nu på vej med en række helt nye online-satsninger, der er affødt af coronakrisen.
CIO
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Podcast, The Digital Edge: Viking leverer en stadig større del af deres produkt som en tjeneste. Som en del af tjenesten tager Viking ansvar for sikkerheden ved at levere, dokumentere og vedligeholde det nødvendige sikkerhedsudstyr. Hør hvordan Henrik Balslev senior digital director hos Viking har løftet den opgave.
Job & Karriere
Regner din ferie væk? Brug tiden på at søge en af disse otte stillinger, der er ledige netop nu
Det sjasker ned over hele Danmark. Du kan bruge de våde sommerdage på at søge et af disse otte job, der er ledige lige nu.
White paper
Minimér spildtid og understøt det nye arbejdsliv med effektive videomøder
Under nedlukningen i foråret 2020 vænnede dine medarbejdere sig til at mødes via Microsoft Teams. Men mange blev frustrerede over at vende tilbage til kontoret og opdage, at dette – nu helt essentielle! – møderedskab ikke fungerede særligt godt sammen videoudstyret i mødelokalerne. Nu bygger en ny løsning endelig bro mellem Teams og verdens nok mest udbredte og velfungerende løsning til professionelle videomøder – Cisco Webex. Det kan du læse mere om i denne korte og præcise gennemgang af løsning og muligheder fra NetDesign.