Juiste weeknummer via vba

[ExcelAmateur]

Allen nog de beste wensen voor 2016

Mijn vraag is, hoe zet je via vba het juiste weeknummer?
Zoals ik het nu gebruik zet hij Week 2 in plaats van Week 1

Dit is de code

CalendarFrm.Caption = " Nu " & " " & Format(Date, "d") & " " & Format(Date, "mmmm") & " " & Format(Date, "yyyy") & "   Week " & DatePart("ww", Date)

 

[edmoor]

Zonder het voor te kauwen is het misschien leuk dit er over te lezen en van SNB te leren
http://www.snb-vba.eu/VBA_ISO_weeknummer.html

 

[HSV]

Hoi,

msgbox datepart("ww", date, vbmonday, vbfirstfourdays)

 

[ExcelAmateur]

Beide hartelijk bedankt voor de antwoorden, ga ermee aan de slag.:thumb:
Als het gelukt is zet ik de vraag als opgelost.

 

[ExcelAmateur]

@edmoor,
Ik kon niet de vba code daar vinden, verder is het wel interesant.

@HSV,

, vbmonday, vbfirstfourdays)

Dit was het ontbrekende stukje code.
Nu werkt het wel goed.

Beide hartelijk bedankt.

 

[snb]

@HSV

Zoals op de website vermeld geeft die formule 1 keer per 400 jaar een verkeerd resultaat.

@Excelamateur

Natuurlijk staat de juiste code er wel.

 

[HSV]

@snb, ik weet zeker dat @ExcelAmateur en wij tweetjes dat niet meemaken. :d

 

[ExcelAmateur]

@snb,

Ik heb het net nog even goed bekeken en zag dat de juiste code er wel staat.
Wou het net aan passen maar je was me voor.

@HSV,
Ik weet het zeker.

 

[snb]

@HSV

Dan wacht ik het toch rustig af zonder jullie