'===============================================================================

Sub номер_недели()

'http://www.cyberforum.ru/vba/thread1231170.html

'считает неделю с воскресеня

d = "24.06.2018"

Debug.Print DatePart("ww", d)

'd = DatePart(Interval, Date, [FirstDayOfWeek], [FirstWeekOfYear])

d = DatePart(1, Date, vbSunday, vbUseSystem)

End Sub

'Функция 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

'Первая полная неделя года

'===============================================================================

'===============================================================================