Excel: WeekNum error in VBA and Formula Sheet

Question

For each calendar the number of week of days 01-02-03/jan/2016 is 53th weeks.

But in excel(VBA and Sheet Formula) this is the week nr. 1 of 2016.

 cellValue = "01/01/2016"
 res = WorksheetFunction.WeekNum(cellValue, 2)

This is serious mistake or correct ?

There is a patch for this problem ?

Answer 1

Looks like you're using the ISO definition of week number. If so then you'll need to change the line to:

res = DatePart("ww", d, vbMonday, vbFirstFourDays)

For a really good explanation of VBA for weeknum calculations, have a look at http://www.cpearson.com/excel/WeekNumbers.aspx .

BTW, the function =WEEKNUM() and WorksheetFunction.Weeknum() work differently in the Excel versions, so you might have more control with a pure VBA solution.

Answer 2

您应该使用21而不是2作为第二个参数。