Как определить номер недели по дате?

@vanill_bear · Регистрация: 03.10.2012

Подскажите, пожалуйста, пример запроса для определения номера недели, по дате?
В странице excel для этого действия используется функция Weeknum. Существует ли аналог в VBA?

SoftIce · 20.07.2014, 22:17

Visual Basic

1	MsgBox DatePart("ww", Now)

@vanill_bear · 20.07.2014, 22:27 **[ТС]**

SoftIce, вот пример кода, в независимости от значения аргумента d, ответ 52. Что я делаю неправильно? в VBA новичок

Visual Basic

Sub Test()
Dim d As Date
Dim q As Integer
d = 1 / 2 / 2014
q = DatePart("ww", d)
MsgBox q
End Sub

SoftIce · 20.07.2014, 22:34

Дату в кавычки заключите.

Visual Basic

Sub Test()
    Dim d As Date
    Dim q As Integer
    d = "1/2/2014"
    q = DatePart("ww", d)
    MsgBox q
End Sub

@vanill_bear · 20.07.2014, 22:35 **[ТС]**

Благодарю!!

@mc-black · 20.07.2014, 23:08

Хотелось бы упомянуть, что существует несколько отличающихся подходов для определения номера недели по дате в зависимости от того, какую дату считать первым днем первой недели. Вышеприведенный код использует лишь один из подходов. Также результат зависит от того, какой день недели считается первым, к примеру в России это понедельник, в в штатах - воскресенье.

SoftIce · 20.07.2014, 23:32

Сообщение от mc-black

какой день недели считается первым

Функция 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
Первая полная неделя года

@mc-black · 21.07.2014, 09:32

Сообщение от mc-black

Вышеприведенный код использует лишь один из подходов. Также результат зависит от того, какой день недели считается первым

Здесь я был не прав.

@vanill_bear 0 / 0 / 0 Регистрация: 03.10.2012 Сообщений: 13
		1
	Как определить номер недели по дате? 20.07.2014, 21:53. Просмотров 11080. Ответов 7 Метки нет (Все метки) Подскажите, пожалуйста, пример запроса для определения номера недели, по дате? В странице excel для этого действия используется функция Weeknum. Существует ли аналог в VBA? 0

@vanill_bear 0 / 0 / 0 Регистрация: 03.10.2012 Сообщений: 13
	20.07.2014, 22:35 [ТС]	5
	Благодарю!! 0

@mc-black 2772 / 706 / 104 Регистрация: 04.02.2011 Сообщений: 1,432
	20.07.2014, 23:08	6
	Хотелось бы упомянуть, что существует несколько отличающихся подходов для определения номера недели по дате в зависимости от того, какую дату считать первым днем первой недели. Вышеприведенный код использует лишь один из подходов. Также результат зависит от того, какой день недели считается первым, к примеру в России это понедельник, в в штатах - воскресенье. 0

SoftIce es geht mir gut 11222 / 4699 / 1178 Регистрация: 27.07.2011 Сообщений: 11,426
	20.07.2014, 23:32	7
	Сообщение от mc-black какой день недели считается первым Функция 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 Первая полная неделя года 4

@mc-black 2772 / 706 / 104 Регистрация: 04.02.2011 Сообщений: 1,432
	21.07.2014, 09:32	8
	Сообщение от mc-black Вышеприведенный код использует лишь один из подходов. Также результат зависит от того, какой день недели считается первым Здесь я был не прав. 0

Опции темы