Application.WeekNum(dDate)

Функция DatePart
DatePart(Interval,Date,[FirstDayOfWeek],[FirstWeekOfYear])
'''
'''
'''
FirstDayOfWeek
Необязательный аргумент типа Long, определяющего первый день недели. Допускается использование констант:
vbUseSystem=0
Используется значение национальных системных установок
vbSunday=1
Воскресенье(по умолчанию)
vbMonday=2
Понедельник
vbTuesday=3
Вторник
vbWednesday=4
Среда
vbThursday=5
Четверг
vbFriday=6
Пятница
vbSaturday
Суббота
FirstDayOfWeek влияет только на вычисления с "w" и "ww"

FirstWeekOfYear
Необязательный аргумент - числовая константа, указывающая, какую неделю считать первой в году:
vbUseSystem=0
Используется системная информация
vbFirstJan1=1
Неделя, содержащая 1 января
vbFirstFourDays=2
Первая неделя, содержащая как минимум 4 дня нового года
vbFirstFullWeek=3
Первая полная неделя года