Welk weeknummer is het juiste nummer?

[snb]

@HSV

Jij was vroeger toch zo handig met VBA ?

Sub M_snb()
   MsgBox Application.WeekNum(DateSerial(2401, 1, 4), 21)
   MsgBox DatePart("ww", DateSerial(2401, 1, 4), 2)
   MsgBox DatePart("ww", DateSerial(2401, 1, 4) - Weekday(DateSerial(2401, 1, 4), 2) + 4, 2)
   
   MsgBox Application.WeekNum(DateSerial(2400, 1, 4), 21)
   MsgBox DatePart("ww", DateSerial(2400, 1, 4), 2)
   MsgBox DatePart("ww", DateSerial(2400, 1, 4) - Weekday(DateSerial(2400, 1, 4), 2) + 4, 2)
   
   MsgBox Application.WeekNum(DateSerial(2400, 1, 4), 21)
   MsgBox Format(DateSerial(2400, 1, 4), "ww", 2)
   MsgBox Format(DateSerial(2400, 1, 4) - Weekday(DateSerial(2400, 1, 4), 2) + 4, "ww", 2)
End Sub

NB. In het ISO systeem valt 4 januari altijd in week 1.

 

[HSV]

Vroeger. :d

Helaas kan ik niets met type_resultaat 21 (Excel 2007, dus veranderd in 2).

Even voor de statistieken.

Eerste serie van 3 (alle drie weeknummer 1 als resultaat.
Tweede serie: een 2.
Derde serie: ook een 2.


In je tweede serie geeft....

 MsgBox DatePart("ww", DateSerial(2400, 1, 4), 2)

....een 2 als waarde retour en...

MsgBox DatePart("ww", DateSerial(2400, 1, 4), 2, [COLOR=#ff0000]2[/COLOR])

....netjes een 1 als resultaat.