Vba excel номер недели по дате

Возвращает значение типа Variant (Integer), содержащее указанную часть заданной даты.

Предупреждение    Проблема с использованием этой функции. Последний понедельник в некоторых календарных годах может быть возвращен как неделя 53, если она должна быть неделей 1. Дополнительные сведения и обходное решение см. в функциях Format и DatePart, которые возвращают неправильный номер недели для последнего понедельника года.

Синтаксис

DatePart

(интервал, дата
[, первый деньofweek] [, первая двенедели ] )

Аргументы функции DatePart:

Аргумент	Описание
интервал	Обязательный аргумент. Строкное выражение, которое является интервалом времени, который необходимо возвратить.
дата	Обязательный аргумент. Значение Variant(Date),которое вы хотите высмеять.
первый_день_недели	Необязательный аргумент. Константа, задающая первый день недели. Если не указано, предполагается воскресенье.
первая_неделя_года	Необязательный аргумент. Константа, задающая первую неделю года. Если не указано, первой считается неделя, на которую вы хотите 1 января.

Параметры

Аргумент интервала имеет указанные здесь параметры.

Параметр	Описание
yyyy	Год
q	Квартал
m	Месяц
y	День года
d	День
w	День недели
ww	Неделя
h	Часы
n	Минуты
s	Секунды

Аргумент первый_день_недели может принимать следующие значения:

Константа	Значение	Описание
vbUseSystem	0	Используются параметры API NLS.
vbSunday	1	Воскресенье (по умолчанию)
vbMonday	2	Понедельник
vbTuesday	3	Вторник
vbWednesday	4	Среда
vbThursday	5	Четверг
vbFriday	6	Пятница
vbSaturday	7	Суббота

Первая две недели аргумента имеет указанные здесь параметры.

Константа	Значение	Описание
vbUseSystem	0	Используются параметры API NLS.
vbFirstJan1	1	Начинается с недели, на которую приходится 1 января (по умолчанию).
vbFirstFourDays	2	Первой неделей считается та, которая содержит хотя бы четыре дня нового года.
vbFirstFullWeek	3	Первой неделей считается первая полная неделя года.

Замечания

Функцию DatePart можно использовать для оценки даты и возврата за определенный интервал времени. Например, с помощью DatePart можно вычислить день недели или текущий час.

Аргумент первый_день_недели влияет на вычисления, если заданы значения «w» и «ww».

Если date является литерал даты, указанный год становится постоянной частью этой даты. Однако если дата заключена в двойные кавычка (» «) и год не введен, при каждой проверке выражения даты в коде вставляется текущий год. Это позволяет писать код, который можно использовать для разных лет.

Примечание: Если в свойстве Calendar задан григорианский календарь, аргумент дата следует указывать соответствующим образом. Если используется календарь Хиджра, дата должна соответствовать ему.

Возвращаемая часть даты находится в единицах времени текущего арабского календаря. Например, если текущим календарем является Хиджра, а возвращаемой частью даты — год, значение года будет соответствовать году в календаре Хиджра.

Примеры запросов

Выражение	Результаты:
SELECT DatePart(«yyyy»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает год значений дат в поле «DateofSale».
SELECT DatePart(«q»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает «Квартал» (с учетом года выжидателя) значений дат в поле «DateofSale».
SELECT DatePart(«y»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает значение «День года» (от 1 до 365) значений дат в поле «ДатаofSale».
SELECT DatePart(«d»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает значение «День» для значений дат в поле «DateofSale».
SELECT DatePart(«w»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает значение «День недели» (от 1 до 7, где 1 представляет воскресенье) значений даты в поле «ДатаofSale».
SELECT DatePart(«ww»,[DateofSale]) AS NewDate FROM ProductSales;	Возвращает значение «Номер недели» (от 1 до 52) значений дат в поле «ДатаofSale».
SELECT DatePart(«h»,[DateTime]) AS NewDate FROM ProductSales;	Возвращает значение «Час» для значений даты в поле «Дата и время».
SELECT DatePart(«n»;[DateTime]) AS NewDate FROM ProductSales;	Возвращает значение «Минуты» значений даты в поле «Дата и время».
SELECT DatePart(«s»;[DateTime]) AS NewDate FROM ProductSales;	Возвращает «секунды» значений даты в поле «Дата и время».

Пример VBA

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В этом примере используется дата, а с помощью функции DatePart отображается квартал года, в котором она возникает.

Dim TheDate As Date    ' Declare variables.
Dim Msg    
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

So, this is my final and working perfectly version

Public Function IsoWeekNumber(d As Date) As String

    Dim kwtemp As String

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

    If Len(kwtemp) = 1 Then kwtemp = "0" & kwtemp

    IsoWeekNumber = kwtemp

End Function

If Application.International(xlMDY) = True Then

HeadlineTemp = Mid(VRHeadline, InStr(VRHeadline, "[") + 1, 10)
HeadlineTemp = Replace(HeadlineTemp, ".", "/")
HeadlineTemp = Mid(HeadlineTemp, 4, 3) & Left(HeadlineTemp, 2) & Right(HeadlineTemp, 5)
VRFirstKW = CDate(HeadlineTemp)
HeadlineTempEndKW = Mid(VRHeadline, InStr(VRHeadline, "]") - 10, 10)
HeadlineTempEndKW = Replace(HeadlineTempEndKW, ".", "/")
HeadlineTempEndKW = Mid(HeadlineTempEndKW, 4, 3) & Left(HeadlineTempEndKW, 2) & Right(HeadlineTempEndKW, 5)
VREndKW = CDate(HeadlineTempEndKW)
VRKW = "KW" & IsoWeekNumber(VRFirstKW) & "-" & IsoWeekNumber(VREndKW) & "/" & Year(VREndKW)

    Else 'don't switch position of the month with days

    HeadlineTemp = Mid(VRHeadline, InStr(VRHeadline, "[") + 1, 10)
    HeadlineTemp = Replace(HeadlineTemp, ".", "/")
    VRFirstKW = CDate(HeadlineTemp)
    HeadlineTempEndKW = Mid(VRHeadline, InStr(VRHeadline, "]") - 10, 10)
    HeadlineTempEndKW = Replace(HeadlineTempEndKW, ".", "/")
    VREndKW = CDate(HeadlineTempEndKW)
    VRKW = "KW" & IsoWeekNumber(VRFirstKW) & "-" & IsoWeekNumber(VREndKW) & "/" & Year(VREndKW)

I am working with Excel 2010.

I wish to convert a given date from the format mm/dd/yyyy to the format Wyy"weeknumber"

For example, 4/10/2017 would become W1715, since it is week 15 of 2017.

The below shown image is of the excel table I am working on. I want to convert the dates in column LT Verification - Planned Date to the week number format mentioned above, in column LT Verification - Planned Week Numbers.

Edit: Because this is part of a larger VBA process, I need it to be in VBA, not a cell formula.

I have written the following code:

Public Sub WeekNumbers()

Dim lastRow As Integer
    lastRow = Range("A1:AZ1").Find("*", , , , xlByRows, xlPrevious).Row

Dim myRange As Range
    Set myRange = Range("A1:AZ1" & lastRow)

Dim myCell As Range
    For Each myCell In myRange

myCell.Offset(0, 1).Value = "W" & Right(Year(myCell.Value), 2) & Application.WorksheetFunction.WeekNum(myCell.Value)**

 Next myCell

 End Sub

This code gives me error at myCell.Offset(0, 1).Value = "W" & Right(Year(myCell.Value), 2) & Application.WorksheetFunction.WeekNum(myCell.Value)

Here I have a excel workbook which will be updated every week. So, each time it is updated, it runs a macro to import data from another file & perform the week number activity & create a pivot table.

So, the sheet name changes every week. Also, the column headers may be in different columns in different weeks. Also, the number of rows may also change every week.

So, I need to specify column & row range dynamically based on that weeks data.
And have the week numbers in the column based on the column header rather than the column name (A or B or Z…)

Всем доброго времени суток!!! Перерыл интернет (может плохо рыл раз не нашел), литературку полистал, но так и не нашел метод определения по дате в ячейке номеров недели, месяца и года. Попадались похожие но не то. Суть в том что есть столбец с датами (21.01.2014) , рядом мне необходимо вывести номер недели и месяц, каким способом это можно сделать в VBA? (ч/з формулы слишком тяжело, т.к. очень много данных) Спасибо заранее!!!

wowick Пользователь Сообщений: 972 Регистрация: 14.01.2014	2014-ый год начался в среду. Первая неделя когда заканчивается? 5-го в воскресенье или 7-го во вторник? Номер месяца узнать из даты — это просто по формуле Месяц(). А недели — разницу в датах делишь на 7 и берешь целую часть от результата… Если автоматизировать бардак, то получится автоматизированный бардак.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Номер недели: http://www.cpearson.com/excel/WeekNumbers.aspx месяц — month(date), год — year(date). Я сам — дурнее всякого примера! …

kolyambus55rus Пользователь Сообщений: 67 Регистрация: 22.01.2014	#4 23.01.2014 09:19:33 По поводу месяца: Код Dim thisDate As Date Dim thisMonth As Integer thisDate = Worksheets("1".Cells(1 + i, thisMonth = Month(thisDate) Worksheets("1".Cells(1 + i, 10) = thisMonth Не получается.) Извините за тупость, я только учусь… Изменено: kolyambus55rus — 25.01.2014 06:17:31 Учусь,еще…

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	#5 23.01.2014 09:59:17 Попробуйте: Код sub tt ()   Dim x% , lr%   lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row for x = 1 to lr step 1 Cells(1+x,10)=month(cells(1+x,8).value) Next x   End sub

китин Пользователь Сообщений: 931 Регистрация: 16.05.2013	#6 23.01.2014 10:09:38 номер недели Код =НОМНЕДЕЛИ(A2;2) номер месяца Код =МЕСЯЦ(A2) что мешает просто протянуть 2 колонки? Прикрепленные файлы kolyambus55rus.xlsx (10.32 КБ) Вполне такой нормальный кинжальчик. Процентов на 100 <#0>

	китин я бы с удовольствием все на формула привязал, но строк с данными свыше 100 000 и любая формула порядком увеличивает размер файла.

seregeyss Пользователь Сообщений: 11251 Регистрация: 01.01.1970

#8 23.01.2014 10:23:42 Код Sub Макрос1() ' ' Макрос1 Макрос ' '     ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-1])"     Range("C2".Select     ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"     Range("D2".Select     ActiveCell.FormulaR1C1 = "=TEXT(RC[-3],""ММММ"""     Range("E2".Select     ActiveCell.FormulaR1C1 = "=YEAR(RC[-4])"     Range("B2:E2".Select     Selection.AutoFill Destination:=Range("B2:E100", Type:=xlFillDefault     Range("B2:E100".Select End Sub Записано макрорекодером по формулам Китина и все работает Изменено: seregeyss — 25.01.2014 06:19:25 Лень двигатель прогресса, доказано!!!

	Vitallic спасибо большое!!! Может литературку грамотную подскажите, чтоб я не «мусорил» в форумах?) Я скачал «Уокенбах Дж. — Excel 2010. Профессиональное программирование на VBA — 2012». Я так понял главное выучить язык програмирования а остальное дело логики?! Остались недельки.)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	seregeyss, ну а поменять формулы на значения? На 100000 строк будет грузить. Я сам — дурнее всякого примера! …

	Виноват про это забыл Лень двигатель прогресса, доказано!!!

	Для дальнейшего удобства (анализ в сводной таблице) я вот так сделал: Прикрепленные файлы 1.PNG (14.04 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#13 23.01.2014 12:02:03 kolyambus55rus, кто Вам сказал, что на форуме по Эксель уместно выкладывать картинки? Цитата Для дальнейшего удобства — офигенно удобно! А так не проще, одной строкой: Код MsgBox MonthName(Month([a1])) еще: Код MsgBox format([a1], "MMMM") ? в а1 — дата. Изменено: KuklP — 23.01.2014 12:06:53 Я сам — дурнее всякого примера! …

	KuklP конечно проще.) Спасибо!   Представляю ваше возмущение, я сам, когда кто то делает глупости, так же реагирую. Изменено: kolyambus55rus — 23.01.2014 12:15:10

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	KuklP , я так понимаю ТС нужно циклом пройтись по таблице в которой 100 000 строк с помощью msgbox это будет утомительно (долго) да и как потом анализировать (фильтровать?) kolyambus55rus , не учел в предыдущем макросе что так много строк, а потому тип переменных надо обьявить как long (или &)

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	#16 23.01.2014 12:59:44 месяц меняйте на свой (не очень ориентируюсь в русских названиях ) и добавте недостающие Код sub tt ()   Dim x& , lr& Dim a a = array("січень","лютий","березень")' здесь поменяйте на нужное     lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row for x = 1 to lr step 1 Cells(1+x,10)=a(month(cells(1+x,8).value)-1) Next x   End sub

kolyambus55rus Пользователь Сообщений: 67 Регистрация: 22.01.2014

#17 23.01.2014 13:07:05 Я вот так забил, всё работает (только в конце пробивает 4 лишних декабря, но это не критично) Код Dim x&, lr& lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row For x = 1 To lr Step 1     Cells(1 + x, 10) = MonthName(Month(Cells(1 + x, 8).Value)) Next x По месяцу все понятно, осталось неделя. Буду разбираться с предложенными вариантами. Изменено: kolyambus55rus — 23.01.2014 13:18:31 Учусь,еще…

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	#18 23.01.2014 13:19:17 поменяйте нужную строку на эту (учтите что в начале цикла нужно указать х = номер первой строки с данными которые обрабатываем) Код    Cells( x, 10) = MonthName(Month(Cells( x, 8).Value))

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	Можно почитать Вокенбаха (указаную выше книгу), еще Б.Джелен — Застосування VBA і макросів у  Excel. Лично я рекомендовал бы в таком порядке: 1. Вокенбах 2. Джелен

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#21 23.01.2014 14:57:58 Цитата с помощью msgbox это будет утомительно (долго) да и как потом анализировать (фильтровать?) Я просто показал, как можно извлечь название месяца из даты без цикла. msgbox только для примера. Переписывать код автора с картинки, знаете ли, ни времени, ни желания не было. Я сам — дурнее всякого примера! …

kolyambus55rus Пользователь Сообщений: 67 Регистрация: 22.01.2014

#22 27.01.2014 09:14:33 В итоге, в общий код макроса, для определения месяца и недели, я вставил следующий код: Код ' Определяем месяц Dim x&, lr& lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row For x = 2 To lr Step 1 Cells(x, 10) = MonthName(Month(Cells(x, 8).Value))      'и неделю dtmTemp = DateSerial(Year(Cells(x, 8)), 1, 1) Do While Weekday(dtmTemp, vbMonday) <> 1 dtmTemp = dtmTemp + 1 Loop If dtmTemp >= DateSerial(Year(Cells(x, 8)), 1, 5) Then dtmTemp = dtmTemp - 7 If Cells(x, 8) >= DateSerial(Year(Cells(x, 8)), 12, 29) Then Temp = DateSerial(Year(Cells(x, 8)), 12, 31) Do While Weekday(Temp, vbMonday) <> 1 Temp = Temp - 1 Loop If Temp >= Cells(x, 8) Then Cells(x, 9) = 1 Else Cells(x, 9) = (Cells(x, 8) - dtmTemp) 7 + 1 End If Else If Cells(x, 8) < dtmTemp Then Cells(x, 9) = Cells(1 + x, 9)(DateSerial(Year(Cells(x, 8)) - 1, 12, 31)) Else Cells(x, 9) = (Cells(x, 8) - dtmTemp) 7 + 1 End If End If Next x Если кто то будет, как и я,  искать, думаю пригодиться.   Всем большое спасибо, редко найдешь такой форум где тебе сразу помогут!   p.s. 29 декабря 2014 года распознала как 1-я неделя (что правильно) а 30 и 31 как 53.   Изменено: kolyambus55rus — 27.01.2014 09:43:41 Учусь,еще…

k61 Пользователь Сообщений: 2441 Регистрация: 21.12.2012

#23 27.01.2014 10:26:40 Сократим: Код Sub www() Dim x&, lr& lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row For x = 2 To lr Step 1 Cells(x, 10) = MonthName(Month(Cells(x, 8).Value)) ' Определяем месяц Cells(x, 9) = DateDiff("ww", DateSerial(Year(Cells(x, 8).Value) - 1, 12, 31), _ Cells(x, 8).Value, vbFirstFourDays) + 1 'и номер недели Next x End Sub re:P.S.  ГОСТ ИСО 8601-2001, п.2.17 «…Первой календарной неделей года считают первую неделю, содержащую первый четверг текущего года». 29 декабря 2014 года это 53-я неделя.

	k61,сейчас только заметил, вот такая картина наблюдается да 30 000 строк вниз: Я про строку 23959 и ниже…. Изменено: kolyambus55rus — 27.01.2014 13:55:07

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Проверьте, где в восьмом столбце заканчиваются данные.

	Юрий М, Там же где и на скриншоте.

	Всё, разобрался!) Тупанул кое в чём. Извените.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле

kolyambus55rus Пользователь Сообщений: 67 Регистрация: 22.01.2014	#30 27.01.2014 16:01:52 Да у меня форматированная таблица была.) Учусь,еще…

This tutorial will cover the different built-in VBA Date Functions.

VBA Date Function

You can use the Date Function to return the current date.

The syntax of the Date Function is Date(). It has no arguments.

The following code shows you how to use the Date Function:

Sub UsingTheDateFunction()

Dim theDate As Date
theDate = Date()

Debug.Print theDate

End Sub

The result shown in the Immediate Window is:

VBA Now Function

You can use the Now Function to return the current date and time.

The syntax of the Now Function is Now(). It has no arguments.

The following code shows you how to use the Now Function:

Sub UsingTheNowFunction()

Dim theDate As Date
theDate = Now()

Debug.Print theDate

End Sub

The result is:

VBA Time Function

You can use the Time Function to return the current time.

The syntax of the Time Function is Time(). It has no arguments.

The following code shows you how to use the Time Function:

Sub UsingTheTimeFunction()

Dim theTime As Date
theTime = Time()

Debug.Print theTime

End Sub

The result is:

VBA DateAdd Function

You can use the DateAdd Function to add a date/time interval to a date or time, and the function will return the resulting date/time.

The syntax of the DateAdd Function is:

DateAdd(Interval, Number, Date) where:

• Interval – A string that specifies the type of interval to use. The interval can be one of the following values:

“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second

• Number – The number of intervals that you want to add to the original date/time.
• Date – The original date/time.

Note: When using dates in your code you have to surround them with # or quotation marks.

The following code shows  how to use the DateAdd Function:

Sub UsingTheDateAddFunction()

Dim laterDate As Date

laterDate = DateAdd("m", 10, "11/12/2019")

Debug.Print laterDate

End Sub

The result is:

VBA DateDiff Function

You can use the DateDiff Function in order to get the difference between two dates, based on a specified time interval.

The syntax of the DateDiff Function is:

DateDiff(Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) where:

• Interval – A string that specifies the type of interval to use. The interval can be one of the following values:

“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second

• Date1 – A date value representing the earlier date.
• Date2 – A date value representing the later date.
• Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:

-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.

• Firstweekofyear (Optional) – A constant that specifies the first week of the year. If blank then the Jan 1st week is used as the first week of the year. Firstweekofyear can be one of the following values:

-vbFirstJan1 – uses the week containing Jan 1st.
-vbFirstFourDays – uses the first week that contains at least four days in the new year.
-vbFirstFullWeek – uses the first full week of the year.
-vbSystem – uses the first week of the year as specified by your system settings.

The following code shows you how to use the DateDiff Function:

Sub UsingTheDateDiffFunction()
 
Dim theDifferenceBetweenTwoDates As Long
 
theDifferenceBetweenTwoDates = DateDiff("q", "11/11/2010", "10/12/2012")
 
Debug.Print theDifferenceBetweenTwoDates
 
End Sub

The result is:

VBA DatePart Function

You can use the DatePart Function in order to return a part (day, week, quarter, month etc.) of a given date.

The syntax of the DatePart Function is:

DatePart(Interval, Date,[Firstdayofweek], [Firstweekofyear]) where:

• Interval – A string that specifies the part of the date to return. The interval can be one of the following values:

“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second

• Date – The date that you want the function to return a part of.
• Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:

-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.

• Firstweekofyear (Optional) – A constant that specifies the first week of the year. If blank then the Jan 1st week is used as the first week of the year. Firstweekofyear can be one of the following values:

-vbFirstJan1 – uses the week containing Jan 1st.
-vbFirstFourDays – uses the first week that contains at least four days in the new year.
-vbFirstFullWeek – uses the first full week of the year.
-vbSystem – uses the first week of the year as specified by your system settings.

The following code shows you how to use the DatePart Function:

Sub UsingTheDatePartFunction()

Dim thePartOfTheDate As Integer

thePartOfTheDate = DatePart("yyyy", "12/12/2009")

Debug.Print thePartOfTheDate

End Sub

The result is:

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

VBA DateSerial Function

The VBA DateSerial Function takes an input year, month and day and returns a date.

The syntax of the DateSerial Function is:

DateSerial(Year,  Month, Day) where:

• Year – An integer value between 100 and 9999 that represents the year.
• Month – An integer value that represents the month.
• Day – An integer value that represents the day.

The following code shows you how to use the DateSerial Function:

Sub UsingTheDateSerialFunction()

Dim theDate As Date

theDate = DateSerial(2010, 11, 10)

Debug.Print theDate

End Sub

The result is:

VBA DateValue Function

The DateValue Function returns a Date when given a string representation of a date.

The syntax of the DateValue Function is:

DateValue(Date) where:

• Date – A String representing the date.

The following code shows you how to use the DateValue Function:

Sub UsingTheDateValueFunction()

Dim theDate As Date

theDate = DateValue("October, 29, 2010")

Debug.Print theDate

End Sub

The result is:

VBA Day Function

You can use the Day Function to return the day of an input date.

The syntax of the Day Function is:

Day(Date_value) where:

• Date_value – The date which you want to extract the day from.

The following code shows you how to use the Day Function:

Sub UsingTheDayFunction()

Dim theDay As Integer

theDay = Day("10/12/2010")

Debug.Print theDay

End Sub

The result is:

VBA Programming | Code Generator does work for you!

VBA Hour Function

You can use the Hour Function to return the hour of an input time.

The syntax of the Hour Function is:

Hour(Time) where:

• Time – The time that you want to extract the hour from.

The following code shows you how to use the Hour Function:

Sub UsingTheHourFunction()
 
Dim theHour As Integer

theHour = Hour("2:14:17 AM")

Debug.Print theHour

End Sub

The result is:

VBA Minute Function

You can use the Minute Function to return the minute value of an input time.

The syntax of the Minute Function is:

Minute(Time) where:

• Time – The time that you want to extract the minute value from.

The following code shows you how to use the Minute Function:

Sub UsingTheMinuteFunction()
 
Dim theMinuteValue As Integer

theMinuteValue = Minute("2:14:17 AM")

Debug.Print theMinuteValue

End Sub

The result is:

VBA Second Function

You can use the Second Function to return the second value of an input time.

The syntax of the Second Function is:

Second(Time) where:

• Time – The time that you want to extract the second value from.

The following code shows you how to use the Second Function:

Sub UsingTheSecondFunction()
 
Dim theSecondValue As Integer

theSecondValue = Second("2:14:17 AM")

Debug.Print theSecondValue

End Sub

The result is:

VBA Month Function

You can use the Month Function to return the month of an input date.

The syntax of the Month Function is:

Month(Date_value) where:

• Date_value – The date which you want to extract the month from.

The following code shows you how to use the Month Function:

Sub UsingTheMonthFunction()
 
Dim theMonth As Integer

theMonth = Month("11/18/2010")
Debug.Print theMonth

End Sub

The result is:

VBA MonthName Function

You can use the MonthName Function to return the name of a month from an input supplied month number.

The syntax of the MonthName Function is:

MonthName(Number_of_month, [Abbreviate]) where:

• Number_of_month – An integer value between 1 and 12.
• Abbreviate (Optional) – Specifies whether the month name should be abbreviated. If blank the default value of False is used.

Sub UsingTheMonthNameFunction()
 
Dim theMonthName As String

theMonthName = MonthName(12, True)
Debug.Print theMonthName

End Sub

The result is:

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

VBA TimeSerial Function

The TimeSerial Function takes an input hour, minute and second and returns a time.

The syntax of the TimeSerial Function is:

TimeSerial(Hour,  Minute, Second) where:

• Hour – An integer value between 0 and 23 that represents the hour value.
• Minute – An integer value between 0 and 59 that represents the minute value.
• Second – An integer value between 0 and 59 that represents the second value.

The following code shows you how to use the TimeSerial Function:

Sub UsingTheTimeSerialFunction()

Dim theTime As Date
theTime = TimeSerial(1, 10, 15)

Debug.Print theTime

End Sub

The result is:

VBA TimeValue Function

The TimeValue Function returns a Time from a string representation of a date or time.

The syntax of the TimeValue Function is:

TimeValue(Time) where:

• Time – A String representing the time.

The following code shows you how to use the TimeValue Function:

Sub UsingTheTimeValueFunction()

Dim theTime As Date
theTime = TimeValue("22:10:17")

Debug.Print theTime

End Sub

The result is:

VBA Weekday Function

You can use the Weekday Function to return an integer from 1 – 7 representing a day of the week from an input date.

The syntax of the Weekday Function is:

Weekday(Date, [Firstdayofweek]) where:

• Date – The date that you want to extract the weekday value from.
• Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:

-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.

The following code shows you how to use the Weekday Function:

Sub UsingTheWeekdayFunction()

Dim theWeekDay As Integer
theWeekDay = Weekday("11/20/2019")
Debug.Print theWeekDay

End Sub

The result is:

VBA WeekdayName Function

You can use the WeekdayName Function to return the name of a weekday from an input supplied weekday number.

The syntax of the WeekdayName Function is:

WeekdayName(Weekday, [Abbreviate], [Firstdayoftheweek]) where:

• Weekday – An integer value between 1 and 7.
• Abbreviate (Optional) -Specifies whether the weekday name should be abbreviated. If blank the default value of False is used.
• Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:

-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.

Sub UsingTheWeekdayNameFunction()
 
Dim theWeekdayName As String

theWeekdayName = WeekdayName(4)
Debug.Print theWeekdayName

End Sub

The result is:

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

VBA Year Function

You can use the Year Function to return the year of an input date.

The syntax of the Year Function is:

Year(Date_value) where:

• Date_value – The date which you want to extract the year from.

The following code shows you how to use the Year Function:

Sub UsingTheYearFunction()

Dim theYear As Integer

theYear = Year("11/12/2010")
Debug.Print theYear

End Sub

The result is:

Comparing Dates in VBA

You can compare dates using the >, <, and = operators in VBA. The following code shows you how to compare two dates in VBA.

Sub ComparingDates()

Dim dateOne As Date
Dim dateTwo As Date

dateOne = "10/10/2010"
dateTwo = "11/11/2010"

If dateOne > dateTwo Then
Debug.Print "dateOne is the later date"

ElseIf dateOne = dateTwo Then
Debug.Print "The two dates are equal"

Else
Debug.Print "dateTwo is the later date"

End If
End Sub

Learn more about how to Format dates as strings by viewing this tutorial.

---

Статья помогла? Сделай твит, поделись ссылкой с друзьями!

Функции для работы с датой и временем в VBA Excel. Синтаксис, параметры, спецсимволы, примеры. Функции, возвращающие текущие дату и время по системному таймеру.

Функция Date

Date – это функция, которая возвращает значение текущей системной даты. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerDate()     MsgBox «Сегодня: « & Date End Sub

Функция DateAdd

DateAdd – это функция, которая возвращает результат прибавления к дате указанного интервала времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateAdd(interval, number, date)

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, который требуется добавить.
number	Обязательный параметр. Числовое выражение, задающее количество интервалов, которые необходимо добавить. Может быть как положительным (возвращается будущая дата), так и отрицательным (возвращается предыдущая дата).
date	Обязательный параметр. Значение типа Variant/Date или литерал, представляющий дату, к которой должен быть добавлен интервал.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd на один день, который необходимо прибавить к исходной дате number раз.

Пример

Sub PrimerDateAdd()     MsgBox «31.01.2021 + 1 месяц = « & DateAdd(«m», 1, «31.01.2021») ‘Результат: 28.02.2021     MsgBox «Сегодня + 3 года = « & DateAdd(«yyyy», 3, Date)     MsgBox «Сегодня — 2 недели = « & DateAdd(«ww», —2, Date)     MsgBox «10:22:14 + 10 минут = « & DateAdd(«n», 10, «10:22:14») ‘Результат: 10:32:14 End Sub

Функция DateDiff

DateDiff – это функция, которая возвращает количество указанных интервалов времени между двумя датами. Тип возвращаемого значения – Variant/Long.

Синтаксис

DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, количество которых (интервалов) требуется вычислить между двумя датами.
date1, date2	Обязательные параметры. Значения типа Variant/Date, представляющие две даты, между которыми вычисляется количество указанных интервалов.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: в отличие от функции DateAdd, в функции DateDiff спецсимвол "w", как и "ww", обозначает неделю. Но расчет осуществляется по разному. Подробнее об этом на сайте разработчиков.

Параметры firstdayofweek и firstweekofyear определяют правила расчета количества недель между датами.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDateDiff() ‘Даже если между датами соседних лет разница 1 день, ‘DateDiff с интервалом «y» покажет разницу — 1 год     MsgBox DateDiff(«y», «31.12.2020», «01.01.2021») ‘Результат: 1 год     MsgBox DateDiff(«d», «31.12.2020», «01.01.2021») ‘Результат: 1 день     MsgBox DateDiff(«n», «31.12.2020», «01.01.2021») ‘Результат: 1440 минут     MsgBox «Полных лет с начала века = « & DateDiff(«y», «2000», Year(Now) — 1) End Sub

Функция DatePart

DatePart – это функция, которая возвращает указанную часть заданной даты. Тип возвращаемого значения – Variant/Integer.

Есть предупреждение по использованию этой функции.

Синтаксис

DatePart(interval, date, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее часть даты, которую требуется извлечь.
date	Обязательные параметры. Значение типа Variant/Date, представляющее дату, часть которой следует извлечь.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1». В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDatePart()     MsgBox DatePart(«y», «31.12.2020») ‘Результат: 366     MsgBox DatePart(«yyyy», CDate(43685)) ‘Результат: 2019     MsgBox DatePart(«n», CDate(43685.45345)) ‘Результат: 52     MsgBox «День недели по счету сегодня = « & DatePart(«w», Now, vbMonday) End Sub

Функция DateSerial

DateSerial – это функция, которая возвращает значение даты для указанного года, месяца и дня. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateSerial(year, month, day)

Параметры

Параметр	Описание
year	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 100 до 9999 включительно.
month	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 12.*
day	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 31.*

* Функция DateSerial автоматически пересчитывает общее количество дней в полные месяцы и остаток, общее количество месяцев в полные годы и остаток (подробнее в примере).

Пример

Sub PrimerDateSerial()     MsgBox DateSerial(2021, 2, 10) ‘Результат: 10.02.2020     MsgBox DateSerial(2020, 1, 400) ‘Результат: 03.02.2021 End Sub

Разберем подробнее строку DateSerial(2020, 1, 400):

• 400 дней = 366 дней + 31 день + 3 дня;
• 366 дней = 1 год, так как по условию month:=1, значит февраль 2020 входит в расчет, а в нем – 29 дней;
• 31 день = 1 месяц, так как сначала заполняется январь (по условию month:=1);
• 3 дня – остаток.

В итоге получается:

DateSerial(2020+1, 1+1, 3) = DateSerial(2021, 2, 3)

Функция DateValue

DateValue – это функция, которая преобразует дату, указанную в виде строки, в значение типа Variant/Date (время игнорируется).

Синтаксис

Параметр date – строковое выражение, представляющее дату с 1 января 100 года по 31 декабря 9999 года.

Пример

Sub PrimerDateValue()     MsgBox DateValue(«8 марта 2021») ‘Результат: 08.03.2021     MsgBox DateValue(«17 мая 2021 0:59:15») ‘Результат: 17.05.2021 End Sub

Функция DateValue игнорирует время, указанное в преобразуемой строке, но если время указано в некорректном виде (например, «10:60:60»), будет сгенерирована ошибка.

Функция Day

Day – это функция, которая возвращает день месяца в виде числа от 1 до 31 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerDay()     MsgBox Day(Now) End Sub

Функция IsDate

IsDate – это функция, которая возвращает True, если выражение является датой или распознается как допустимое значение даты или времени. В остальных случаях возвращается значение False.

Синтаксис

Параметр expression – это переменная, возвращающая дату или строковое выражение, распознаваемое как дата или время.

Значение, возвращаемое переменной expression, не должно выходить из диапазона допустимых дат: от 1 января 100 года до 31 декабря 9999 года (для Windows).

Пример

Sub PrimerIsDate()     MsgBox IsDate(«18 апреля 2021») ‘Результат: True     MsgBox IsDate(«31 февраля 2021») ‘Результат: False     MsgBox IsDate(«4.10.20 11:12:54») ‘Результат: True End Sub

Функция Hour

Hour – это функция, которая возвращает количество часов в виде числа от 0 до 23 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerHour()     MsgBox Hour(Now)     MsgBox Hour(«22:36:54») End Sub

Функция Minute

Minute – это функция, которая возвращает количество минут в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerMinute()     MsgBox Minute(Now)     MsgBox Minute(«22:36:54») End Sub

Функция Month

Month – это функция, которая возвращает день месяца в виде числа от 1 до 12 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerMonth()     MsgBox Month(Now) End Sub

Функция MonthName

MonthName – это функция, которая возвращает название месяца в виде строки.

Синтаксис

MonthName(month, [abbreviate])

Параметры

Параметр	Описание
month	Обязательный параметр. Числовое обозначение месяца от 1 до 12 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название месяца, False (по умолчанию) – название месяца не сокращается.

Пример

Sub PrimerMonthName()     MsgBox MonthName(10) ‘Результат: Октябрь     MsgBox MonthName(10, True) ‘Результат: окт End Sub

Функция Now

Now – это функция, которая возвращает текущую системную дату и время. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerNow()     MsgBox Now     MsgBox Day(Now)     MsgBox Hour(Now) End Sub

Функция Second

Second – это функция, которая возвращает количество секунд в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerSecond()     MsgBox Second(Now)     MsgBox Second(«22:30:14») End Sub

Функция Time

Time – это функция, которая возвращает значение текущего системного времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerTime()     MsgBox «Текущее время: « & Time End Sub

Функция TimeSerial

TimeSerial – это функция, которая возвращает значение времени для указанного часа, минуты и секунды. Тип возвращаемого значения – Variant/Date.

Синтаксис

TimeSerial(hour, minute, second)

Параметры

Параметр	Описание
hour	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 0 до 23 включительно.
minute	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*
second	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*

* Функция TimeSerial автоматически пересчитывает общее количество секунд в полные минуты и остаток, общее количество минут в полные часы и остаток (подробнее в примере).

Пример

Sub PrimerTime()     MsgBox TimeSerial(5, 16, 4) ‘Результат: 5:16:04     MsgBox TimeSerial(5, 75, 158) ‘Результат: 6:17:38 End Sub

Разберем подробнее строку TimeSerial(5, 75, 158):

• 158 секунд = 120 секунд (2 минуты) + 38 секунд;
• 75 минут = 60 минут (1 час) + 15 минут.

В итоге получается:

TimeSerial(5+1, 15+2, 38) = TimeSerial(6, 17, 38)

Функция TimeValue

TimeValue – это функция, которая преобразует время, указанное в виде строки, в значение типа Variant/Date (дата игнорируется).

Синтаксис

Параметр time – строковое выражение, представляющее время с 0:00:00 по 23:59:59 включительно.

Пример

Sub PrimerTimeValue()     MsgBox TimeValue(«6:45:37 PM») ‘Результат: 18:45:37     MsgBox TimeValue(«17 мая 2021 3:59:15 AM») ‘Результат: 3:59:15 End Sub

Функция TimeValue игнорирует дату, указанную в преобразуемой строке, но если дата указана в некорректном виде (например, «30.02.2021»), будет сгенерирована ошибка.

Функция Weekday

Weekday – это функция, которая возвращает день недели в виде числа от 1 до 7 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Weekday(date, [firstdayofweek])

Параметры

Параметр	Описание
date	Обязательный параметр. Любое выражение (числовое, строковое), отображающее дату.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekday()     MsgBox Weekday(«23 апреля 2021», vbMonday) ‘Результат: 5     MsgBox Weekday(202125, vbMonday) ‘Результат: 6 End Sub

Функция WeekdayName

WeekdayName – это функция, которая возвращает название дня недели в виде строки.

Синтаксис

WeekdayName(weekday, [abbreviate], [firstdayofweek])

Параметры

Параметр	Описание
weekday	Обязательный параметр. Числовое обозначение дня недели от 1 до 7 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название дня недели, False (по умолчанию) – название дня недели не сокращается.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekdayName()     MsgBox WeekdayName(3, True, vbMonday) ‘Результат: Ср     MsgBox WeekdayName(3, , vbMonday) ‘Результат: среда     MsgBox WeekdayName(Weekday(Now, vbMonday), , vbMonday) End Sub

Функция Year

Year – это функция, которая возвращает номер года в виде числа. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerYear()     MsgBox Year(Now) End Sub

Приложение 1

Таблица аргументов (значений) параметраinterval для функций DateAdd, DateDiff и DatePart:

Аргумент	Описание	Интервал значений
yyyy	Год	100 – 9999
q	Квартал	1 – 4
m	Месяц	1 – 12
y	День года	1 – 366
d	День месяца	1 – 31
w	День недели	1 – 7
ww	Неделя	1 – 53
h	Часы	0 – 23
n	Минуты	0 – 59
s	Секунды	0 – 59

В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Приложение 2

Константы из коллекции firstdayofweek:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки
vbSunday	1	Воскресенье (по умолчанию)
vbMonday	2	Понедельник
vbTuesday	3	Вторник
vbWednesday	4	Среда
vbThursday	5	Четверг
vbFriday	6	Пятница
vbSaturday	7	Суббота

Приложение 3

Константы из коллекции firstweekofyear:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки.
vbFirstJan1	1	Неделя, в которую входит 1 января (по умолчанию).
vbFirstFourDays	2	Неделя, в которую входит не менее четырех дней нового года.
vbFirstFullWeek	3	Первая полная неделя года.

---