Excel vba ячейка с датой

ТРЕНИНГИ

   Быстрый старт
   Расширенный Excel
   Мастер Формул
   Прогнозирование
   Визуализация
   Макросы на VBA

КНИГИ

   Готовые решения
   Мастер Формул
   Скульптор данных

ВИДЕОУРОКИ

ОНЛАЙН-КУРСЫ

ФОРУМ

   Excel
   Работа
   PLEX

© Николай Павлов, Planetaexcel, 2006-2022
info@planetaexcel.ru

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

Техническая поддержка сайта

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

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 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.

Работа с датой

​Смотрите также​​ «01 Янв 2007″​PureBasic if mS​ смотрится​: Private Sub CommandButton1_Click()​Оксана33​
​ указанной ячейке введён​ A1=»21.01.2012″, как прибавить​ флаг типа Boolean,​Функция​
​1​
​ExpressionОбязательный аргумент -​ системную дату. Формат​ Dim date1 As​ не получится ввести​больше похоже на​ не стандартна… Вдруг​cooler_92​ это совсем другое​ = «Jan» then​кстати можно еще​ Dim x As​: я не пойму…​ не прошлый день,​ к нему календарный​ указывающий на вид​Now​Воскресенье (по умолчанию)​ выражение типа Variant,​ даты, возвращаемый функцией,​ Date Dim date2​ дату в неправильном​ правду.. только я​ это пользователь забыл​: Привет Эт снова​ дело.​ mI=1 if mS​ так​ String x =​ cdbl для того,​ то ввести формулу,​ месяц(2,3,4,5…) по средствам​ возвращаемого дня недели.​позволяет быстро узнать​vbMonday​ содержащее выражение даты​ определяется национальными системными​ As String Dim​ формате.​ что то не​ точку поставить, а​ я.. по сути​MsgBox CDate(«01 Jan​ = «Feb» then​Dim x As​ MonthName(Month(Date), False) If​ чтобы преобразовать в​ возвращающую их разницу,​ VBA и сравнить​ По умолчанию установлен​ текущую дату и​2​ или строковое выражение,​ установками​ date3 As String​analyst​ сообразил, где какое​ программа такая плохая​ программа написанна, но​ 2007″) MsgBox CDate(«01​ mI=2…​ String x=Choose(Month(Date),»Января»,»Февраля»,»Марта»……..,»Декабря») msgbox​ (Right(x, 1) =​ число? я думала,​ можно, например, так​ с сегодняшним числом?​ в False, что​ время по системному​Понедельник​

​ распознаваемое как значение​​Параметры​ Dim date4 As​
​: Эта запись вообще​ сообщение должно вываливаться..​ посчитала ему, и​ в ней один​ Янв 2007″)Кроме того,​pashulka​ x​ «ь») Or (Right(x,​ что он для​ :​Формулами это сделать​

​ означает вывод полного​​ календарю и часам​vbTuesday​ даты или времени​
​Функция не имеет аргументов​ Date date3 =​ касалась кода, который​ напиши плз​ вывела результат почти​ косяк.​ если внимательно прочитать​:​MU-GK​ 1) = «й»)​ другого служит​ActiveCell = «=TODAY()-«​ вообще не проблема,​ дня недели FirstDayOfWeekНеобязательный​ компьютера. Чтобы получить​3​Пример​Пример​ InputBox(«Введите дату рождения:»)​ написан до неё.​analyst​ 700000 тысяч дней..​Надо написать программу,​ моё сообщение, то​MU-GK​: Смотрится. Mid в​ Then Mid(x, Len(x))​тогда почему не​

​ & CDbl(Cells(2, 1))или​​ но по ячейкам​ аргумент — числовая​ только системную дату​Вторник​
​’ Используем функцию IsDate​’ Выводим текущую системную​ If date3 =​ Читайте внимательнее!​: Да согласен. Я​ Ну эт размышления​

​ определяющую сколько дней​​ там говорится, что​, Все три вышеперечисленные​ данном случае не​ = «я» Else​ CLng или CSng,​ActiveCell = «=TODAY()-«​ бить лишнюю инфу​ константа, указывающая, какой​ без времени, используйте​vbWednesday​ ‘ для проверки,​ дату в заголовке​ Format(date3, «dd.mm.yyyy») Then​А на счёт​ так подумал и​ моего препода. Короч,​ прошло со дня​ англ.месяц можно заменить​
​ функции, локально-зависимые. поэтому​ функция, а оператор.​
​ Mid(x, Len(x)+1) =​ что для меня​ & Cells(2, 1).Value2​ не хочется вообще.​ день недели считать​ функцию Date​4​ является ли год​

​ формы Dim Today​​ ‘Стандартная ф-я, которая​ календаря согласен.​ решил, что нафига​ помогите с этим​ вашего рождения.​ на русск.аналог​ у нас, названия​

​pashulka​​ «а» End If​
​ более логично бы​Оксана33​
​Спасибо.​ первым: vbUseSystem=0Используется системная​Примечание: Не забывайте,​
​Среда​ высокосным ‘ Для​ Today=​ выводит диалоговое окно​cooler_92​ делать так, если​ разобраться.. Знаю, что​Вот текст программы​или его номер​ месяцев должны указываться​
​: о как​ ActiveCell = x​ звучало или даже​:​Юрий М​ информация vbFirstJan1=1Неделя, содержащая​ что пользователь может​vbThursday​

​ этого проверяем, существует​​Date​ с сообщением и​: Про форму я​ можно создать форму,​
​ нужно ф-ей Format​Option Explicit Sub​

​Да это понятно, что​​ как Январь/Января или​ни разу не​ End Sub​ CInt, но только​pashulka​

​: Sub PlusOneMonth()​​ 1 января vbFirstFourDays=2Первая​ самостоятельно устанавливать системное​

​5​​ ли 29 февраля​’ узнаем текущую​
​ полем ввода If​ в курсе, но​ а в ней​ пользоваться, но не​ date_rozhd() ‘Программа, считающая​

​ на территории РФ​​ Янв/Янва и т.п.​ встречал​snipe​ с ним какая​, объясни пожалуйста почему​Dim x​ неделя, содержащая как​

​ время и дату​​Четверг​
​ Dim MyYear is​ системную дату ‘​ date3 = «»​ работать можно только​ три комбобокса, в​
​ знаю как..​ кол-во дней, прошедших​ действительны только Январь/Февраль,​​По поводу утилиты​​пойду ликбезом заниматься​: Благодарю, вы мне​ то засада -​ CDbl — он​x = «21.01.2012»​ минимум 4 дня​ на своем компьютере,​
​vbFriday​ String If​ Преобразуем в строку​ Then MsgBox «Дата​

​ в модуле, без​​ которых можно загрузить​analyst​
​ со дня рождения,​ а не Jan/Feb.​ — в Вашем​спасибо за наводку​ очень помогли!​ в экселе преобразовует,​ конвертирует его в​MsgBox DateSerial(Year(x), Month(x)​ нового года vbFirstFullWeek=3Первая​ поэтому эти значения​6​IsDate​ и выводим в​ рождения не введена!»​ использования визуальных компонентов.​ только то что​: Как на счёт​ до сегодняшней даты​Именно это я​ посте нет информации,​MU-GK​snipe​ а вот в​ число, которое Эксель​ + 1, Day(x))​ полная неделя года​ могут не иметь​Пятница​(«02/29/» & myYear) Then​ заголовке формы Form1.Caption​ Else date1 =​analyst​ нужно и не​ такого варианта?​ Dim date1 As​ и имел в​ куда выдаётся такая​: Индуцировано:​: Dim x As​ vba — нет​ интерпретирует как дату?​End Sub​Пример​ ничего общего с​vbSaturday​ MsgBox myYear &​ = CStr(Today)​ Date ‘ф-я определения​: Я же написал​ надо будет заморачиваться​Option Explicit Sub​

​ Date Dim date2​​ виду, что невозможно​ информация. если это​Есть функция​ String x =​

CyberForum.ru

Date

Функция Date

​pashulka​
​pashulka​

​Казанский​​’ Выводим сокращенное название​​ реальной датой и​7​ «- высокосный год»​

​Смотри также​

​ сегодняшней даты If​​ вариант без формы.​ на счёт всяких​​ date_rozhd() Dim a​​ As String Dim​ напрямую прочитать «01​ ячейки рабочего листа​Monthname​ MonthName(Month(Date), False) if​: В Excel нет​

​: Потому, что дата​

​: dateadd(«m»,2,[A1])​

​ седьмого месяца Form1.Caption​ ​ временем!​Суббота​ Else MsgBox myYear​Now​​ IsDate(date3) = False​​cooler_92​ там условий по​ As String Dim​ date3 As String​ Jan 2012".​ (Excel), то можно​ ​, возвращающая имя месяца​
​ Month(Date)=3 or Month(Date)=8​
​ стандартной функции рабочего​
​ это всего лишь​Второй аргумент -​

excelworld.ru

Функция IsDate

​ =​

​Возвращаемое значение​​Возвращаемые значения​​ & «- невысокосный​Категория​ Then ‘ф-я проверки​: не вариант..))) не​ поводу ввода некоректных​ date1 As Date​ Dim date4 As​Поскольку прочитать надо,​ просто заменить англ.​ по номеру, а​ Then x=x &​ листа CInt, а​ количество(читайте число) дней,​ число м-цев.​

​WeekdayName​

​Возвращает значение типа Variant(Date),​Ниже перечислены значения, возвращаемые​ год» End If​Функции дат и​ корректности ввода двты​​ работает!!!​​ данных. Пользователь сможет​​ Dim date2 As​​ Date date3 =​ то здесь два​ месяц на наш​ вот функции, возвращающей​ «а» Else Left(x,​ есть Int(Целое)​​ прошедших с 1​​ivan-msk77​(7, True)​ содержащее текущую дату​ функцией​Категория​ времени​ MsgBox «Дата введена​Пользователю конечно можно​

​ выбрать только то,​​ String Dim date3​ InputBox(«Введите дату рождения:»)​ выхода:​ отечественный или его​ ноимер месяца по​ len(x)-1) & «я»​​А что касается​

​ января 1900 года​: пошел пробовать, благодарю​Смотри также​ и время​Weekday​Функции дат и​IsDate(Expression)​ некорректно.» & Chr(13)​​ написать, но кто​​ что есть на​ As String Dim​ ‘Стандартная ф-я, которая​1. Менять сразу​ номер. а для​ имени кажется нет.​

​ msgbox x​
​ VB(A), то функция​ (или 2 января​

Функция Weekday

​ :)​

​MonthName​Параметры​:​ времени​

​Функция​

​ & «Формат даты​ сказал, что он​ самом деле!​ date4 As Date​

​ выводит диалоговое окно​
​ к числовому формату,​ этого можно использовать,​

​: Ну конечно!​ даты в число,​

​ = Format(a, «dd.mm.yyyy»)​

​ date3 = «»​ 1, 2) m​​MU-GK​​, Номер месяца можно​

​ указанной даты​

​ Функция обрабатывает данные​ в тип Date​ хоть на иврите​ date3 = Format(date3,​: Понимаю, что коряво,​ рождения не введена!»​ 3)) y =​ меня строго Jan/Feb/Mar.​ а стало быть​, спасибо за подсказку​ с датами до​​ поняла при чем​
​нужно высчитывать разницу​Day​

Функция Now

​Now​

​Воскресенье​​Возвращаемое значение​​ любого типа без​ If date1 <​ вводит свою дату​ «dd.mm.yyyy») then идёт​ но красоту лень​ Else date1 =​ Mid(DateS, 8, 4)​Результаты выдаются в​
​ и для месяца,​вот так правильно​ 16.09.1989 (включительно)​ тут Double​ между текущим днем​используется для получения​’ узнаем текущую​vbMonday​Возвращает значение типа Variant(Integer),​ генерации ошибки. Но​

​ date4 Then MsgBox​

​ рождения, но пока​ твой кодПравда нужно​ наводить​

​ Date ‘ф-я определения​

​ DateT = DateSerial(y,​

​ Excel или в​

​ т.е.​Dim x As​Оксана33​​aequit​​ и прошлым​ дня месяца из​ системную дату и​2​ содержащее целое число(между​ функция использует национальные​

​ «Введенная дата больше​
​ он правильно не​
​ написать пользователю в​
​Sub Check_Date() Dim​ сегодняшней даты If​

Функция WeekdayName

​ m, d)Функция AyNum​ текстовый файл.​

​nameMonth = «Май»​ String x =​: ясно, спасибо за​
​, можно ли «d»​​если в ячейку​​ даты. Отчет дат​ время ‘ Преобразуем​Понедельник​ 1 и 7),​

​ системные установки дати​

​ сегодняшней» ‘Стандартная ф-я,​ введет фиг ему​ каком формате вводить​

​ a As String​​ IsDate(date3) = False​ выглядит примерно вот​Замена Replace не​ MsgBox Month(«1 «​ MonthName(Month(Date), False) if​ подробный ответ)​ заменить DateInterval.Day?​ А1 загнать формулу​ начинается с 31​ в строку и​vbTuesday​ представляющее день недели​ и времени компьютера,​ которая выводит диалоговое​ а не ответ.​ дату!​ Dim nI As​ Then ‘ф-я проверки​ так:​ имеет смысла -​ & nameMonth) MsgBox​ Month(Date)=3 or Month(Date)=8​MIRsky​aequit​​ TODAY(), а в​

​ декабря 1899 года,​ выводим на форме​3​​Параметры​​ поэтому «правильная» дата,​

​ окно c сообщением​
​Abu​
​Toxa33rus​
​ Integer, nPoint As​ корректности ввода двты​

Функция Day

​Function AyNum(Ay As​

​ тогда менять уже​​ Format(«1 » &​​ Then x=x &​: Здравствуйте, прошу помочь​: «d» это и​ А2 — Date,​ поэтому нулевым днем​ Print CStr(Today)​Вторник​Функция содержит именованные​ полученная на одном​ Else date2 =​

​: Проверяйте правильность ввода,​

​: А не проще​ Integer Dim date1​ MsgBox «Дата введена​ String) As Integer​

​ сразу на числовой​​ nameMonth, «m») MsgBox​ «а» Else x=Left(x,​ с написанием кода.​ есть строковое значение​ то нет проблем….​​ будет 30 декабря,​

​Смотри также​vbWednesday​ аргументы​

​ компьютере, может оказаться​
​ date1 — date4​
​Код If userDay​
​ проверять чтоб введенная​ As Date Dim​

работа с датами (VBA)

​ дата была логически​​ date2 As String​
​ & «Формат даты​
​ «Jan» Then AyNum​
​ нет в этом​ & nameMonth)Вместо пробела​
​ msgbox x​

​ ячейке задать месяц​​https://msdn.microsoft.com/ru-ru/library/b5xbyt6f(v=vs.90).aspx​
​но если формулу​ значениях будет показана​

​Категория​​Среда​Описание​

​ компьютере​​ » & date2​

planetaexcel.ru

Формула с датой

​ Затем проверяйте является​​ правильной? Не менее​ Dim date3 As​
​ должен быть: день.месяц.год»​ = 1 Else​ нужды, я ведь​
​ можно использовать .​MU-GK​ в виде «Февраля,​pashulka​ TODAY() внести в​ предыдущая дата​
​Функции дат и​vbThursday​Date​Возвращаемое значение​
​ End If End​ ли введённая дата​ 3 лет и​ String Dim date4​ Else date4 =​ If Ay =​ программно обрабатываю.​ / — ,​: Тогда и я​

​ Марта, Июня» Basic​​: [A1].Value = Now​ ActiveCell сразу, то​Возвращаемое значение​ времени​

​5​​Обязательный. Значение типа Variant,​Возвращает значение типа Boolean,​ If End If​ датой​ не более 100​ As Date a​
​ CDate(date3) ‘Ф-я перевода​ «Feb» Then AyNum​pashulka​MU-GK​ исправлю ошибку. Код​ не учил, пользуясь​ [A1].NumberFormat = «General»​
​ уже не выходит​Возвращает значение типа Variant(Integer)​
​WeekdayName(Weekday[, Abbreviate [, FirstDayOfWeek]​Четверг​

​ числовое выражение, строковое​​ показывающее, может ли​​ Else: MsgBox («введите​​Код If IsDate(userDay)​ лет назад.​ = InputBox(«Введите дату​ из типа String​ = 2 Else​

​: Для Вас, может​​: Не получается​ из 2-го сообщения​ знаниями синтаксиса других​ MsgBox TypeName([A1].Value)​Код ActiveCell.FormulaR1C1 =​ от 1 до​ ])​vbFriday​ выражение или любая​

​ значение выражения быть​​ дату в формате​ Then И потом,​yaser​
​ рождения:») For nI​​ в тип Date​ If Ay =​

​ быть.​​Строка #3 даёт​ должен быть таким.​ языков написал с​
​Оксана33​

​ «=TODAY()-» & Cells(2,​​ 31, которое представляет​Новая функция, которая появилась​6​

​ комбинация, позволяющая отобразить​​ преобразовано в значение​ дд.мм.гггг») End If​ как сказал​: Строки 14, 15​ = 1 To​
​ If date1 <​ «Mar» Then2. Либо​А ну тогда​ ошибку​Private Sub CommandButton1_Click()​ горем пополам программу,​: я там уже​

​ 1) если считать​​ день месяца​ в версии Visual​Пятница​ дату.Допустимый диапазоно дат-01.01.0000​ даты. Функция​
​ End Sub​Toxa33rus​

​MsgBox («Некорректно введена​​ Len(a) If Mid(a,​ date4 Then MsgBox​ русифицировать имена месяцев​ всё ясно …​Run-time Error ’13’:​ Dim x As​
​ но она не​ была) но если​ так Код ActiveCell.FormulaR1C1​Параметры​ Basic 6.0​vbSaturday​ до 31.12.9999.Если аргумент​IsDate​cooler_92​, сверяйте попадает ли​ дата рождения!»)Строку​

​ nI, 1) =​​ «Введенная дата больше​ и читать даты​ ведь программно заменить​Type Mismatch​
​ String x =​ работает. Что не​ в формуле меняешь​ = «=TODAY()-» &​DateОбязательный аргумент, представляющий​Функция​7​ содержит зарезервированное слово​возвращает​

​: Пасибо!!!)))))) Но если​​ она в диапазон​If date4 <​

CyberForum.ru

Формирование даты (месяца) VBA

​ «.» Then nPoint​​ сегодняшней» ‘Стандартная ф-я,​ в текстовом формате.​ «нельзя» …​Собственно, задача такая​ MonthName(Month(Date), False) x​ так?​ на DateInterval.Day то​ 3 , то​ собой любое выражение,​WeekdayName​Суббота​ Null, то функцией​True​
​ честно, когда я​ ((сейчас — 100​ Date Then MsgBox​ = nPoint +​ которая выводит диалоговое​ При этом:​Нет, ну а​ — некая Утилита​ = MonthName(8, False)​Private Sub CommandButton1_Click()​ не выходит​ тоже считает, но​ оцениваемую как дату.​получает полное или​Пример​

​ возвращает Null​​, если выражение принадлежит​ свой код редактировал,​ лет) < userDay​ («!!!!!!!»)заменить на​ 1 Next If​ окно c сообщением​2а Менять на​ смысл замены, если​ выдает результаты работы​ If (Right(x, 1)​ Dim x As​я просто не​ саму ячейку с​

​ Допустимый диапазон дат:от​​ сокращенное название дня​’ Используем функцию для​

​Firstdayofweek​​ к типу даты​ то вылетала ошибка..​ < (сейчас -​If date4 >​ nPoint <> 2​ Else date2 =​ листе встроенными средствами​ не может прочесть​

​ Программы.​​ = «ь») Or​

​ String Dim Lenx​​ пойму как Double​​ формулой не хочет​​ 01.01.0000 до 31.12.9999​
​ недели по его​
​ ‘ определения дня​Необязательный. Константа, указывающая первый​ или допускает преобразование​Date​ 3 года). Всего​ Date Then MsgBox​ Then MsgBox («!!!!!!!»)​ date1 — date4​

​ и после этого​​ напрямую?​Линейку дат выдает​ (Right(x, 1) =​ As Integer f1​
​ это делает с​aequit​Пример​ номеру​ недели, соответствующего ‘​ день недели. Если​ к допустимому значению​Date$​ три вложенных условия!​ («Дата рождения не​ If Len(a) <>​ MsgBox «Кол-во дней:​ считать линейку дат​Зачем мне менять​ в виде:​

​ «й») Then Mid(x,​​ = Month(Date) x​​ датой, я думала​​: Public Function RaznitcaDat(a,​’ Извлекаем день месяца​Возвращаемое значение​
​ указанной дате Dim​ этот аргумент опущен,​
​ даты; в противном​Функция​P.S. ИМХО, можно​

​ может быть в​​ 10 And Len(a)​ » & date2​2b Считать линейку​

​Feb​​01 Jan 2007​
​ Len(x)) = «я»​ = MonthName(f1, False)​
​ что он предназначен​
​ b) RaznitcaDat =​

​ из строки Print​​Возвращает строку, содержащее полное​
​ MyDate MyDate =​​ считается, что неделя​​ случае возвращается​Date​ цифру 100 увеличить,​ будущем!»)P.S. Для правильности​ <> 8 Then​

​ End If End​​ дат в англоформате​​на​​01 Feb 2007​ Else x =​ Lenx = Len(x)​ для чисел с​ DateDiff(«d», a, b)​
​ Day(«27 Июля 1966»)​ или сокращенное название​ «Июль 27, 1966″​ начинается с воскресенья​False​позволяет получить текущую​ чтоб не выглядеть​ работы программы, если​ MsgBox («!!!!!!!») date4​

​ If End If​​ и менять названия​
​Фев​…..​
​ x & «а»​
​ If (x.chars(Lenx) =​
​ запятыми​ End Function​Смотри также​ дня недели​
​ ‘ Присваиваем дату​Ниже перечислены допустимые значения​
​. В Microsoft Windows​
​ системную дату по​
​ совсем пессимистом.​
​ введена неправильная дата,​ = a If​
​ End SubПроблема вот​ в элементах массива.​(раль), если можно сразу​Надо преобразовать к​ End If ActiveCell​ «Гј») Or (x.chars(Lenx)​
​pashulka​pashulka​Month, WeekDay, Year​Параметры​ Print Weekday(MyDate,vbMonday) ‘​

​ аргумента FirstDayOfWeek:​​ допустимыми являются даты​​ системному календарю компьютера​​analyst​ после MsgBox выйти​ date4 < Date​ в чем. Если​2a искажает исходные​ привести к числовому​
​ нормальному типу Date​ = x ‘MsgBox​ = «Г©») Then​: Ещё раз повторю,​: Разница между текущим​Категория​WeekdayОбязательный аргумент типа​ возвращается 3, поскольку​Константа​ в диапазоне от​Возвращаемое значение​: Не понимаю( Этот​ из программы: Exit​ Then MsgBox («!!!!!!!»)​

​ пользователь введет к​​ данные, 2b вообще​ формату, чтобы был​
​Делаю это тупым​ x End Sub​ x.chars(Lenx) = «Гї»​
​ дата это и​ днем и прошлым,​Функции дат и​ Long, определяющего день​ ‘ MyDate соответствует​Значение​ 1 января 100 г.​Date​

​ код не работает?​​ Sub​ End Sub​
​ примеру 1.125, то​ какой-то сомнительный.​ формат Date в​ выделением дня, месяца,​

​pashulka​ Else: x.chars(Lenx +​ есть число, например,​ всегда = 1​
​ времени​​ недели(1-7). Допускается использование​​ среде​​Описание​​ до 31 декабря​возвращает значение типа​Option Explicit Sub​Если через форму,​cooler_92​ программа это правильно​Резюмируя — считать​ виде #01.02.2012#…В русс.​ года и заменой​:​ 1) = «Г*»​
​ 17.03.2017 12:00 это​ день (без учёта​ivan-msk77​ констант: vbSunday=1Воскресенье(по умолчанию)​Категория​vbUseSystem​ 9999 г.; другие операционные​ Variant субтитпа Date,​​ date_rozhd() ‘Программа, считающая​​ есть очень удобный​: тож самое.. сам​ считает датой, но​ даты напрямую нельзя.Искажений​
​ версии «01 Jan​ имени месяца его​SoftIce​ ActiveCell.FormulaR1C1 = x​ 42811,5​
​ часов, минут и​: Добрый день!​ vbMonday=2Понедельник vbTuesday=3Вторник vbWednesday=4Среда​
​Функции дат и​0​ системы могут поддерживать​
​Date$​ кол-во дней, прошедших​ элемент управления DTPicker​ попробуй.. введи в​ не правильно по​ у себя не​ 2007″ это просто​ номера простым перебором​, 6 строка тоже​
​ End Sub​MsgBox CDate(42811.5) MsgBox​ секунд)​Проблема состоит в​ vbThursday=5Четверг vbFriday=6Пятница vbSaturdayСуббота​ времени​Используется значение NLS API​ другие диапазоны дат​возвращает данные типа​ со дня рождения,​ (комбобокс с календарём)​ дату рождения 1.125​ условию задачи, так​ наблюдаю​
​ текст, а вот​ типа:​ как-то не очень​MIRsky​
​ CDbl(#3/17/2017 12:00:00 PM#)​Если же в​ следующем, есть ячейка​ AbbreviateНеобязательный аргумент -​
​Now​vbSunday​Параметры​
​ String, содержащее текущую​ до сегодняшней даты​ — в нём​ или подобное.​

CyberForum.ru

​ как запись даты​