MyTetra Share
Делитесь знаниями!
Как определить номер недели по дате? - VBA
16.03.2019
23:43
Текстовые метки: DatePart, weeknum, номер недели
Раздел: !Закладки - VBA - Операции с датами-временем

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

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

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

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


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


 
MyTetra Share v.0.52
Яндекс индекс цитирования