Как в excel месяц прописью формула - Word и Excel - помощь в работе с программами

Если в ячейке содержится дата или номер месяца, то с помощью формул или Формата ячейки можно вывести название месяца. Также решим обратную задачу: из текстового значения названия месяца получим его номер.

Пусть в ячейке В6 содердится дата 05.09.2016

С помощью формулы =ТЕКСТ(B6;»ММММ») можно вывести полное название месяца с заглавной буквы в именительном падеже, Сентябрь . Чтобы вывести название со строчной буквы используйте функцию СТРОЧН() .

Примечание : Результат предыдущей формулы — текстовое значение. Если нужно, чтобы в ячейке была дата, то используйте Формат ячеек (нажмите сочетание клавиш CTRL+1 ). О форматах даты подробнее можно прочитать в статье Пользовательский формат ДАТЫ и ВРЕМЕНИ в MS EXCEL

Формула =ТЕКСТ(B6;»МММ») выведет сокращенное название месяца (3 буквы).

Особый формат =ТЕКСТ(B6;»[$-FC19] ММММ») выведет полное название месяца с учетом склонения, т.е. сентября . Этот формат удобен для вывода фраз, например, Сегодня 1 сентября , но может работать не на всех компьютерах.

Если месяц задан числом от 1 до 12, то полное название можно вывести с помощью формулы =ТЕКСТ(ДАТА(;B14;1);»ММММ») . Название со склонением можно вывести с помощью формулы =ВЫБОР(B14;»января»;»февраля»;»марта»;»апреля»;»мая»;»июня»;»июля»;»августа»;»сентября»;»октября»;»ноября»;»декабря») .

Если требуется решить обратную задачу, то есть, имея название месяца, получить его номер, то используйте формулу =МЕСЯЦ(ДАТАЗНАЧ(1&B21&2011))

Название месяца должно быть в именительном падеже и без опечаток.

Для наглядности можно составить перечень месяцев с их номерами и с помощью функции ВПР() выбирать название месяца по его номеру (см. файл примера ).

О написании месяца на английском языке см. статью https://excel2.ru/articles/nazvanie-mesiatsa-na-angliiskom-iazyke-v-ms-excel

Источник

Как вывести месяц из даты

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

Думаю, вы уже знаете, что дата в Excel хранится в виде порядковых чисел. Поэтому в явном виде в ней нельзя увидеть ни день, ни месяц, ни год. Тем не менее, очень часто работать с ними по отдельности крайне необходимо. Сейчас мы рассмотрим, как выделить месяц из даты в виде числа или текста.

В этом руководстве вы узнаете:

Функция МЕСЯЦ
Номер месяца — по дате
Извлекаем название месяца из даты
Получаем месяц прописью при помощи форматирования
Как гибко настроить имя месяца при помощи формул
Как название месяца превратить в число
Использование Power Query

Функция МЕСЯЦ в Excel – синтаксис и использование

Microsoft Excel предоставляет специальную функцию МЕСЯЦ() для извлечения месяца из даты. Она возвращает его порядковый номер в диапазоне от 1 (январь) до 12 (декабрь).

Функцию МЕСЯЦ() можно использовать во всех версиях Excel, и ее синтаксис настолько прост, насколько это возможно:

МЕСЯЦ(дата)

Для корректной работы этой функции аргумент следует вводить с помощью функции ДАТА(год; месяц; день). Либо ссылаться на ячейку, в которой она корректно записана.

Например, формула =МЕСЯЦ(ДАТА(2021;2;5)) возвращает 2, поскольку ДАТА представляет 5 февраля 2021 года.

Формула =МЕСЯЦ(«1-Мар-2020») также работает нормально. Дело в том, что если вы введете такой текст в ячейку, то Excel сразу же распознает его как дату. То же самое происходит и в формуле.

На практике гораздо удобнее ссылаться на ячейку с датой или возвращать ее какой-либо другой функцией, чем прописывать прямо в формуле. Например:

=МЕСЯЦ(A1) — возвращает месяц из ячейки A1.

=МЕСЯЦ(СЕГОДНЯ()) — возвращает номер текущего месяца.

На первый взгляд функция МЕСЯЦ() в Excel может показаться простой. Но просмотрите приведенные ниже примеры, и вы удивитесь, узнав, сколько полезных вещей она может делать.

Как определить номер месяца по дате в Excel

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

Функция МЕСЯЦ() – определить номер месяца из даты.

Это наиболее очевидный и простой способ. Например:

=МЕСЯЦ(A2) – возвращает месяц из даты в ячейке A2.
=МЕСЯЦ(ДАТА(2020,7,15)) – возвращает число 7, соответствующее июлю.
=МЕСЯЦ(«15-Апр-2020») – очевидно, возвращает число.

2. Функция ТЕКСТ() – вывести месяц в виде текстовой строки.

Альтернативный способ получить номер месяца из даты Excel — использовать функцию ТЕКСТ:

=ТЕКСТ(A2; «м») — возвращает номер без нуля в начале, от 1 до12.
=ТЕКСТ(A2;»мм») — возвращает номер всегда из двух цифр, от 01 до 12.

Будьте очень внимательны при использовании текстовых функций, потому что они всегда возвращают порядковые номера месяцев в виде текстовых значений. И если вы планируете выполнить какие-то дальнейшие вычисления или использовать полученные числа в других формулах, вам лучше придерживаться функции МЕСЯЦ().

Или же при помощи несложного математического действия преобразуйте текст в число:

=—ТЕКСТ(A2; «м»)

На следующем скриншоте показаны результаты всех приведенных выше формул. Обратите внимание на выравнивание по правому краю чисел, возвращаемых функцией МЕСЯЦ() (ячейки C2 и C3), в отличие от выравнивания по левому краю текстовых значений, возвращаемых функциями ТЕКСТ (ячейки C5 и C6).

Как получить название месяца из даты

Если вы хотите видеть название месяца, а не число, вы снова используете функцию ТЕКСТ, но с другим шаблоном формата:

=ТЕКСТ(A2;»МММ») — возвращает сокращенное трёхбуквенное название, с «янв» по «дек».
=ТЕКСТ(A2;»ММММ») — выводит полное название, с января по декабрь.

Если вы на просто хотите вывести название месяца вместо полной даты, тогда вам не нужны никакие формулы.

Выберите ячейку с датой, нажмите Ctrl + 1, чтобы открыть диалоговое окно «Формат ячеек». На вкладке «Число» выберите «Все форматы» и введите «МММ» или «ММММ» в поле «Тип», чтобы отобразить сокращенное или полное название соответственно. В этом случае ваши данные останутся полностью функциональными датами Excel, которые вы можете использовать в расчетах и других формулах. Дополнительные сведения об изменении формата см. в статье Создание пользовательского формата даты в Excel.

Автоматическое заполнение.

После того как вы отформатировали столбец значений даты в длинном формате, показанном выше, вы сможете вывести месяц в виде текстового значения, используя автоматическое заполнение.

Начните вводить несколько названий месяца в столбце рядом с отформатированными датами.

Excel угадает закономерность и выведет предлагаемое заполнение в светло-сером цвете. Вы можете нажать Enter, чтобы принять эти значения.

Таким образом, названия месяцев будут существовать как текстовые значения, а не только отформатированные даты.

Как преобразовать номер месяца в его название.

Использование форматирования

Предположим, у вас есть список чисел (от 1 до 12) на листе Excel, который вы хотите конвертировать в названия месяцев. Для этого можно использовать любую из следующих формул:

Чтобы вернуть сокращенное название (янв – дек):

=ТЕКСТ(A2*28;»МММ»)

=ТЕКСТ(ДАТА(2020;A4;1);»МММ»)

Чтобы вернуть полное имя (январь – декабрь):

=ТЕКСТ(A2*28;»ММММ»)

=ТЕКСТ(ДАТА(2020;A4;1);»ММММ»)

Во всех приведенных выше формулах A2 – это ячейка с номером. И единственная реальная разница между формулами – это код формата:

«МММ» — трехбуквенное сокращение, например янв – дек,
«ММММ» — название полностью.

3. Чтобы вернуть только первую букву:

=ТЕКСТ(ДАТА(2020;A4;1);»МММММ»)

«МММММ» — только первая буква названия.

Как работают эти формулы?

Excel считает число 1 днем 1 января 1900 года. Умножая 1, 2, 3 и т. д. на 28, вы получаете дни 28, 56, 84, и т. д. 1900 года, то есть какое-то число в январе, феврале, марте и т. д. Код формата «МММ» или «ММММ» выводит название месяца. А год для нас здесь совсем не важен.

Вторая же формула просто создает дату первого числа соответствующего месяца 2020 года.

Более гибкий способ – функции ВЫБОР, ИНДЕКС или ПЕРЕКЛЮЧ.

Для максимальной гибкости вы можете создавать свои собственные наименования с помощью функции ВЫБОР следующим образом:

=ВЫБОР(МЕСЯЦ(A3);»янв»;»фев»;»мар»;»апр»;»май»;»июн»;»июл»;»авг»;»сен»;»окт»;»ноя»;»дек»)

Введите названия месяцев, которые вы хотите вернуть (настроенные по желанию) как значения в функции ВЫБОР, после первого аргумента, который вводится как МЕСЯЦ([дата]). Функция МЕСЯЦ() извлечет номер (число от 1 до 12), и ВЫБОР будет использовать его для возврата n-го значения в списке.

Использование ВЫБОР – это более громоздкая формула. Но это более гибкое решение, поскольку позволяет вывести как результат любые значения, которые вы пожелаете (т.е. вы можете использовать значения, которые являются настраиваемыми, сокращенными, не сокращенными, в другом падеже, на другом языке).

Вот, например:

=ВЫБОР(МЕСЯЦ(A4);»январь»;»февраль»;»Март»;»апрель»;»май»;»июнь»;»июль»;»август»;»сентябрь»;»октябрь»;»ноябрь»;»декабрь»)

Еще один интересный вариант – использование функции ИНДЕКС. Вновь у нас в качестве аргумента используется массив названий, которых мы можем настраивать так, как будет необходимо.

=ИНДЕКС({«январь»;»февраль»;»Март»;»апрель»;»май»;»июнь»;»июль»;»август»;»сентябрь»;»октябрь»;»ноябрь»;»декабрь»};МЕСЯЦ(A7))

А второй аргумент – это порядковый номер месяца. Его можно указать явным образом либо получить функцией МЕСЯЦ(). Из массива будет извлечено значение, порядковый номер которого мы указали.

И, наконец, третий вариант – функция ПЕРЕКЛЮЧ. Вновь извлекаем порядковый номер как числовое значение от 1 до 12.

А затем пишем вот такую формулу:

=ПЕРЕКЛЮЧ(МЕСЯЦ(A3);1;»янв»;2;»фев»;3;»мар»;4;»апр»;5;»май»;6;»июн»;7;»июл»;8;»авг»;9;»сен»;10;»окт»;11;»ноя»;12;»дек»)

Как видите, здесь тоже каждому числу соответствует определённое значение. Его мы и выводим в столбце B.

Как преобразовать название месяца в число

Теперь рассмотрим противоположную по логике задачу. Существуют две функции Excel, которые могут помочь вам преобразовать названия месяцев в числа – ДАТАЗНАЧ() и МЕСЯЦ(). Функция Excel ДАТАЗНАЧ() преобразует дату, сохраненную в виде текста, в порядковый номер, который Microsoft Excel распознает как дату. Затем функция МЕСЯЦ() извлекает из неё номер месяца.

Полная формула выглядит следующим образом:

=МЕСЯЦ(ДАТАЗНАЧ(«1-«&A2))

Где A2 – это ячейка, содержащая название месяца, которое вы хотите превратить в число.

Конструкция

«1-«&

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

1-февраль

или

1-фев

то программа определит вашу информацию как 1 февраля текущего года, дополнит недостающее содержимое в ячейке и применит формат даты для её отображения.

То же самое происходит и в формуле ДАТАЗНАЧ, когда мы к единице дописываем имя месяца с дефисом. Единственное важное условие здесь – нужно использовать именительный падеж, как это принято по умолчанию в Windows.

Однако, достаточно даже первых трёх букв месяца, чтобы не заморачиваться с падежами 😊.

Так тоже работает.

Использование Power Query.

Надстройка Excel Power Query может помочь вам перевести дату в месяц и извлекать его номер или название.

Итак, у нас есть список дат и нужно вытащить из них месяц.

Прежде всего, преобразуйте ваши данные в таблицу.
После этого выберите любую из ячеек в таблице и перейдите на вкладку «Данные».
Нажмите кнопку «Из таблицы».

Ваша таблица будет загружена в Power Query.

Здесь у вас есть два варианта действий: либо добавить новый столбец, в который будет записан нужный результат, либо сразу преобразовать ваши даты. Пропустите следующие два шага, если вы просто хотите преобразовать дату в месяц без добавления нового столбца.

Кликните правой кнопкой мыши заголовок столбца.
Нажмите «Создать дубликат».

Кликните по заголовку нужного столбца правой кнопкой мыши.
Перейдите Преобразование ➜ Месяц ➜ Название месяца.

Ваши даты тут же будут преобразованы, как на скриншоте ниже.

Еще одна вещь, которую имеет смысл сделать: щелкните правой кнопкой мыши заголовок столбца и переименуйте его в «Месяц».
Теперь нажмите «Закрыть и загрузить», и ваши данные будут перенесены в рабочий лист.

Плюсы —

Ваши исходные данные ни при каком раскладе не пострадают.

Минусы —

У вас должен быть установлен Power Query в вашей версии Excel. Название месяца будет полным, в именительном падеже.

Вот основные способы, как можно в Excel вывести месяц из даты. Надеюсь, эти советы были вам полезны.

Как перевести время в число — В статье рассмотрены различные способы преобразования времени в десятичное число в Excel. Вы найдете множество формул для преобразования времени в часы, минуты или секунды. Поскольку Microsoft Excel использует числовую систему для работы с временем, вы можете…

Формат времени в Excel — Вы узнаете об особенностях формата времени Excel, как записать его в часах, минутах или секундах, как перевести в число или текст, а также о том, как добавить время с помощью…

Как быстро вставить сегодняшнюю дату в Excel? — Это руководство показывает различные способы ввода дат в Excel. Узнайте, как вставить сегодняшнюю дату и время в виде статической метки времени или динамических значений, как автоматически заполнять столбец или строку…

Количество рабочих дней между двумя датами в Excel — Довольно распространенная задача: определить количество рабочих дней в период между двумя датами – это частный случай расчета числа дней, который мы уже рассматривали ранее. Тем не менее, в Excel для…

Источник

Узнаем как написать дату и месяц прописью в Excel (в том числе в именительном и родительном падежах).

Приветствую всех, дорогие читатели блога TutorExcel.Ru.

Подписывая какие-либо документы мы помимо собственного автографа очень часто вписываем туда и текущую дату в виде числа, месяца и года. При этом мы почти никогда там не встречаем месяц записанный в численном формате. Ведь, например, дата записанная как 12.11.2016 куда сложнее воспринимается и читается чем 12 ноября 2016 г.

Вот и в Excel иногда требуется указать дату в таком виде, поэтому давайте подробно разберемся какие у нас есть варианты реализации.

Запись с помощью настройки формата ячейки

В Excel существует достаточно большое количество форматов отображения даты.

Давайте запишем дату в произвольную ячейку и перейдем в ее формат (щелкаем по ячейке правой кнопкой мыши и выбираем Формат ячейки, или просто нажимаем сочетание клавиш Ctrl + 1).

В открывшемся окне нас интересует вкладка Число:

Среди форматов дат выбираем запись месяца прописью и получаем:

Можно выбрать запись как со звездочкой (символ «*»), так и без, при этом различие отображения будет заключаться в изменении вида записи при смене настроек времени и даты операционной системы.

Идем дальше и перейдем к формульному решению задачи.

Запись с помощью формул

Как мы уже разбирали в примере визуализации половозрастной пирамиды, формат любой ячейки записывается с помощью маски отображения. В случае с датой наиболее популярный вид записи (например, для 12.11.2016) выглядит как ДД.ММ.ГГГГ, где Д — день, М — месяц, Г — год.

Поэтому такого же результата мы сможем добиться воспользовавшись стандартной функцией ТЕКСТ (в английской версии TEXT), которая преобразует заданный текст в определяемый нами формат записи.

В качестве формата записи в данном случае указываем [$-FC19]Д ММММ ГГГГ г.;@, применяем функцию для даты и получаем:

Чуть подробнее остановимся на формате.

В записи формата [$-FC19] как раз и отвечает за корректный формат отображения даты в родительном падеже (можете попробовать убрать [$-FC19] и посмотреть что получится).

Если же нужно отобразить месяц не на русском, а, например, на украинском языке, то используйте [$-FC22] (для белорусского [$-FC23]):

Ок, с полной записью даты и месяца разобрались, но что если нам нужен только месяц?

Как записать месяц прописью?

Как и в примере выше воспользуемся функцией ТЕКСТ. Формат «ММММ» даст нам полную запись месяца (в именительном падеже):

Ещё одним способом является совместное применение функций МЕСЯЦ (в английской версии MONTH) и ВЫБОР (английский вариант CHOOSE).
Месяц вернёт нам порядковый номер месяца указанной даты (от 1 до 12), а ВЫБОР сопоставит числовому значению текстовое (где 1 — январь, 2 — февраль, …, 12 — декабрь):

Если же мы пишем число с месяцем и годом, то зачастую месяц нужно указать в родительном падеже (а не в именительном как в примере выше), например, 2 февраля 2015 года или 14 августа 2012 года и т.п.

Здесь нам опять поможет формат [$-FC19]ММММ, который записывает месяц в дате в родительном падеже, отличие от предыдущего варианта записи только в том, что мы убрали из записи день и год:

Есть и альтернативный вариант. На помощь опять придут уже знакомые функции МЕСЯЦ и ВЫБОР, только тут вместо именительного падежа для месяцев прописываем родительный (меняем окончания):

На этом все. Выбирайте наиболее понравившийся и удобный для вас способ.

Скачать файл с примером.

Спасибо за внимание!
Если у вас остались вопросы по теме статьи — пишите в комментариях.

Удачи вам и до скорых встреч на страницах блога TutorExcel.Ru!

Поделиться с друзьями:

Поиск по сайту:

Источник

Название месяца прописью в MS EXCEL

Смотрите такжеBusine2012Спасибо, отличный вариантMsgBox 7 функцию, чтобы переводилаПримеры использования функции МЕСЯЦ: месяцев и лет ячейки с соответствующими и время». Рассмотрим IgorGo и особенно

IgorGo его не знаю). шрифтами?

ли задавать похожие (2). — дата, месяц которой формат удобен дляЕсли в ячейке содержится: да, я ошибся,Busine2012Case «Aug»

 название месяца вВозвращает день как целое – «md»; числовыми данными: для наиболее распространенные функции МСН! Все четко: извините, погорячился…Потестируйте, если всеНиканор – уточняющие вопросы,Следующие формулы вернут ошибку необходимо найти. вывода фраз, например, дата или номер

я имел ввиду:

MsgBox 8 число (порядковый номер число (от 1в днях без учета года – от в этой категории. работает и никакихс числами кратными правильно, то можно:

когда задал другой #ЗНАЧ!Используемая в качестве аргумента Сегодня 1 сентября, месяца, то с сообщениеxtremeCase «Sen»

в году) до 31) для лет – «yd». 1900 до 9999;Программа Excel «воспринимает» дату

проблем. 10 — будет будет и макрос

sboy участник форума?=МЕСЯЦ(«28-февраля-2011») Дата должна быть но может работать помощью формул или#3, как раз в

excel2.ru

Функция МЕСЯЦ() в MS EXCEL

MsgBox 9Например заданной в числовомВ некоторых версиях Excel для месяца – и время какMCH лажа полнейшая что

Синтаксис функции

 сделать, либо все, Здравствуйте!

Если можно, то=МЕСЯЦ(«28 02 2011») в формате воспринимаемым

Примеры

не на всех Формата ячейки можно. моё случае понятно,Case «Oct»

Jan — 1
формате даты. Аргумент
при использовании последних
от 1 до
обычное число. Электронная
: Понравилась идея Игоря
в датах, что
в одну формулуСпасибо за ответ. задам следующий вопрос:Для того, чтобы прибавить EXCEL. Следующие формулы компьютерах. вывести название месяца.DV68 что к чему,MsgBox 10Feb — 2 – дата дня, двух аргументов («md», 12; для дня таблица преобразует подобные с куазанием всех в годах((( засунуть без доп.Я прост такФормула в Вашем
к дате 28.02.2011, будут работать:Если месяц задан числом от Также решим обратную: Смотрю я что-то а по сообщениюCase «Nov»…

который нужно найти, «yd») функция может

– от 1
данные, приравнивая сутки

Использование с функцией ДАТА()

числительных в однома вот с ячеек выделяю – и ответе содержащейся в ячейке=МЕСЯЦ(«28.02.2011»)
1 до 12,

excel2.ru

Преобразование даты в текст: месяц (прописью) (Формулы/Formulas)

 задачу: из текстового пропустил)#2MsgBox 11Dec — 12

 в числовом формате. выдать ошибочное значение. до 31. к единице. В диапазоне на отдельном этим «двадцать первоеIgorGo думаю что так=ТЕКСТ(A2;»[$-419]ММММ;@»)
А1

=МЕСЯЦ(«28/02/2011») то полное название значения названия месяцаСергей хорошая фишка,

я не понимаюCase «Dec»PelenaЧтобы вернуть порядковый номер
Лучше применять альтернативныеЕсли для аргумента «День» результате значение времени
листе. …. шестьдесят первого: Сережа, там числительние отвечающему будет лучшедаёт результат только, например, 5 месяцев,
=МЕСЯЦ(«28-02-2011») можно вывести с
получим его номер. почему работает - ничего, кромеMsgBox 12: Формула не подойдет? дня недели для
формулы. задать большее число представляет собой долю
Реализовал свой вариант, года» — как в именительном падеже
обратить внимание на название месяца без
можно использовать следующую=МЕСЯЦ(«28-фев-2011″) помощью формулы =ТЕКСТ(ДАТА(;B14;1);»ММММ»). Название
Пусть в ячейке не пойму, но
B1Case Else200?’200px’:»+(this.scrollHeight+5)+’px’);»>=(ПОИСК(A1;»janfebmaraprmayjunjulaugsepoctnovdec»)+2)/3 указанной даты, можноПримеры действия функции РАЗНДАТ: (чем количество дней от единицы. К формула получилась даже

 раз все нормально (у називному відмінку). главное. года.
формулу:
=МЕСЯЦ(«28-февраль-2011») со склонением можноВ6 пригодится))

.MsgBox «Нет такогоolega34 применить функцию ДЕНЬНЕД:
В версии Excel 2007
в указанном месяце), примеру, 12.00 – не очень большая надо: … першогоivanov1974, (типично украинскаяВедь для чего
Например, если в=ДАТА(ГОД(A1);МЕСЯЦ(A1)+5;ДЕНЬ(A1)).
=МЕСЯЦ(«28 февраль 2011») вывести с помощью
содердится дата 05.09.2016Спасибо!Смысл моей формулы месяца»: Работает! Но как??!!

По умолчанию функция считает данной функции нет то лишние дни это 0,5.

excelworld.ru

дата прописью

Гость червня … першого фамилия) на листе1 то есть шрифты. ячейке А2 23.03.17tanver=МЕСЯЦ(«2011.02.28″) формулы =ВЫБОР(B14;»января»;»февраля»;»марта»;»апреля»;»мая»;»июня»;»июля»;»августа»;»сентября»;»октября»;»ноября»;»декабря»).С помощью формулы =ТЕКСТ(B6;»ММММ») можноSerge 007

 в том, чтоEnd SelectЧто за формула воскресенье первым днем
в справочнике, но перейдут на следующийЗначение даты электронная таблица: Единственная ошибка во
року. допишете недостающие числительныеНо может так результат: Март: Добрый день. Напишите=МЕСЯЦ(40602) В EXCELЕсли требуется решить обратную

 вывести полное название: Привет, Дим! функцияEnd Sub
такая, где об недели. она работает. Хотя месяц. Например, указав преобразует в число, всех вариантах, 2000(дваIgorGo в порядке возростания
не принято?Если изменить эту пож. формулу преобразования даты хранятся в задачу, то есть,
месяца с заглавной

Немного поясню: КонкатенируяМЕСЯЦxtreme этом можно прочитать?Для отображения порядкового номера результаты лучше проверять, для декабря 32 равное количеству дней тисячного), а надо : есть. (надо от 1Скажите пожалуйста, можно формулу на Код=ТЕКСТ(A2;"[$-419]ММММ даты 01.01.2015 в виде последовательности чисел имея название месяца,

буквы в именительном текстовое название месяца работает только с: Какой командой можноСпасибо. недели для указанной т.к. возможны огрехи. дня, получим в от 1 января "двох тисячного"алгоритм не пострадал. до 19 и ли задавать похожие ГГГГ;@") ТЕКСТ: январь.

(1, 2, 3, получить его номер, падеже, Сентябрь. Чтобы и ноль, Excel датой, содержащий день, преобразовать "Май" вSerge_007 даты применяется функцияВозвращает год как целое результате 1 января. 1900 года (такIgorGo чуть-чуть поправлен.

десятки от 20 (уточняющие) вопросы, врезультат будет Март Serge_007 ...), что позволяет то используйте формулу =МЕСЯЦ(ДАТАЗНАЧ(1&B21&2011)) вывести название со переводит полученное в месяц и год.

5?: Здесь НОМНЕДЕЛИ:

число (от 1900Пример использования функции: решили разработчики) до: обижаете, уважаемый.200?'200px':''+(this.scrollHeight+5)+'px');">=ЕСЛИ(ДЕНЬ(A1)на листе1 по-прежнему требуется до 90).

комментариях к чужому 2017: На месте можно выполнять над нимиНазвание месяца должно быть строчной буквы используйте дату, по умолчанию Но у нас,Busine2012

Модификация формулы (чутьДата 24.05.2015 приходится на до 9999), которыйЗададим большее количество дней заданной даты. Например,

смотрите файл 8223373.rar, записать числа от очень крепко не вопросу?Если изменить эту

без формул, форматом вычисления. По умолчанию в именительном падеже функцию СТРОЧН(). используется виртуальный день есть только месяц : Формула находится в покороче): 22 неделю в соответствует заданной дате. для июня: при преобразовании даты сообщение №6, 2000

1 до 20 проверял, но вроде


excelworld.ru

Функции для работы с датами в Excel: примеры использования

Pelena формулу на Код=ТЕКСТ(A2;»[$-419]ДД ячеек день 1 января и без опечаток.Примечание равный первому дня

Как Excel обрабатывает время

и его поставить ячейке A1, слово200?’200px’:»+(this.scrollHeight+5)+’px’);»>=(ПОИСК(ПСТР(A1;2;2);»anebarprayunulugepctovec»)+1)/2 году. Неделя начинается В структуре функцииПримеры использования в качестве 13.04.1987 получается число год прописывается корректно и теперь аналогично должно корректно работать: Прочитайте Правила форума,

ММММ ГГГГ;@»)200?’200px’:»+(this.scrollHeight+5)+’px’);»>[$-419]ММММ;@ 1900 г. имеетДля наглядности можно составить: Результат предыдущей формулы месяца и нулевой в формулу немайМакросом:Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Month() с воскресенья (по только один аргумент аргументов ссылок на

31880. То естьMCH с приведенными для на датах с там есть ответрезультат будет 23или в другой номер 1, а

перечень месяцев с

Пример функции ДАТА

— текстовое значение. год, т.е. 2000-й. получится. Поэтому нужно

- в ячейке

Dim m As умолчанию). – дата в ячейки: от 1.01.1900 прошло: Я ведь украинского 20,21 и 60,61 01.01.1901 по 31.12.2099. на Ваш вопрос Март 2017 ячейке формулой с 28 февраля 2011

их номерами и Если нужно, чтобы В итоге получается сформировать любую дату, B1. RangeВ качестве второго аргумента числовом формате. АргументВозвращает разницу между двумя 31 880 дней.

не знаю, поэтому

записать для всех200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ДЕНЬ(A1)

ivanov1974Вопрос: Как изменить тем же форматом

Функция РАЗНДАТ в Excel

г. — номер с помощью функции

в ячейке была

дата 36647, т.е.
содержащую месяц
Формула:Set m = указана цифра 2.

должен быть введен датами.

Этот принцип лежит в в сообщение №
десятков.
MCH
: В ячейку А1 эту формулу что
Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ТЕКСТ(A2;»[$-419]ММММ;@») 40602, так как ВПР() выбирать название
дата, то используйте 01.05.2000 из которой

май=МЕСЯЦ(«1» & B1 Range(«a1») Поэтому формула считает, посредством функции ДАТААргументы: основе расчетов временных

7 от 06.01.2012,

удачи!: Игорь, не знаю вводим дату, скажем бы после годаАльтернатива: Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ВПР(МЕСЯЦ(A2);{1;»январь»:2;»февраль»:3;»март»:4;»апрель»:5;»май»:6;»июнь»:7;»июль»:8;»август»:9;»сентябрь»:10;»октябрь»:11;»ноябрь»:12;»декабрь»};2;) интервал между этими

Функция ГОД в Excel

месяца по его Формат ячеек (нажмите функция МЕСЯЦ уже. & «2012»)Select Case m что неделя начинается или представлять результатначальная дата; данных. Чтобы найти 04:29 написал:MCH

как по украински,

ГОД.

Функция МЕСЯЦ в Excel: пример

15.06.2011. Что надо была буква гtanver датами составляет 40 номеру (см. файл сочетание клавиш извлекает порядковый номерSerge 007Serge 007Case «Jan» с понедельника (второй

вычисления других формул.

Примеры функций ДЕНЬ, ДЕНЬНЕД и НОМНЕДЕЛИ в Excel

конечная дата; количество дней междуQuote: Ну и мой но по русски сделать, чтобы в с точкой и: Спасибо, за быстрый

602 дня. О примера).CTRL+1 месяца — пятый

: Вариант: Вариант покороче:MsgBox 1

день недели).Пример использования функции ГОД:код, обозначающий единицы подсчета двумя датами, достаточно

(MCH)200?’200px’:»+(this.scrollHeight+5)+’px’);»>возможно числительные не вариант, будет: «двадцать пер ячейке А2 эта в данном примере

ответ. Воспользовалась второй том как EXCELФункция МЕСЯЦ(), английский вариант). О форматах датыКак-то такBusine2012

Код =МЕСЯЦ(B1&0)Case «Feb»

Скачать примеры функций дляВозвращает месяц как целое (дни, месяцы, годы от более позднего правильно записаны, проверяйтедолжна работать отвое

exceltable.com

Функция для перевода названия месяца в число (Макросы Sub)

 дата отображалась прописью был результат Март формулой. хранит дату и MONTH(), возвращает месяц, подробнее можно прочитать
DV68
, так и работает.
xtreme
MsgBox 2
работы с датами

 число (от 1 и др.).
временного периода отнять

Во вложении 3 01.01.1900 до 31.12.2299
…. шестьдесят пер на украинском языке 2017 г.
Никанор

 время, читайте эту соответствующий заданной дате.
в статье Пользовательский формат: Проверил сейчас вМожете подставлять любой
: Плох тем, что
Case «Mar»Для указания текущей даты
до 12) дляСпособы измерения интервалов между
более ранний.
варианта: с доп.
возможно числительные не
вого
(п’ятнадцятого червня дві
sboy
:
статью.
Месяц определяется как
ДАТЫ и ВРЕМЕНИ
ячейке, все так
день и любой
может возникунуть вопрос
MsgBox 3
используется функция СЕГОДНЯ
заданной в числовом
заданными датами:

листом, с помощью
правильно записаны, проверяте
года»
тисячі одинадцятого року)?
: Позволю себе ответить
Serge_007
=МЕСЯЦ(A1) Если в
целое число в
в MS EXCEL и есть.
год, преобразование в
а почему именно

excelworld.ru

Преобразование название месяца в номер месяца в году

Case «Apr» (не имеет аргументов). формате даты. Аргументдля отображения результата в

Построение значение даты, составляя имен и UDF(ТЕКСТ своровал уЧислительные для днейMCH за Сергея
, Здравствуйте!
ячейке диапазоне от 1

Формула =ТЕКСТ(B6;»МММ») выведет сокращенное название месяцаСпасибо за разъяснения!
дату будет происходить

 01 ММ 2012MsgBox 4 Чтобы отобразить текущее – дата месяца, днях – «d»;
его из отдельныхГость IgorGo) и лет в: сделал на формулах
Serge_007

Извините за беспокойствоА1 (январь) до 12 (3 буквы).Diesel594Busine2012По факту всёCase «May» время и дату, который необходимо отобразить,в месяцах – «m»; элементов-чисел.
: СПАСИБО!!!MCH разных падежах, в (без макросов), на=ТЕКСТ(A2;»[$-419]ДД ММММ ГГГГ г.;@») и что задаювведена дата в (декабрь).Особый формат =ТЕКСТ(B6;»[$-FC19] ММММ») выведет: Рабочий вариант в, сообщение равно какой годMsgBox 5 применяется функция ТДАТА в числовом формате.в годах – «y»;

Синтаксис: год; месяц, день.Для работы с датами: вариант без доп. украинском, думаю, также
русском.а зачем Вы похожий вопрос. одном из вышеуказанных
МЕСЯЦдата полное название месяца Excel 2007 «=МЕСЯЦ(A1+0)».#2 и число, главное

Case «Jun» (). Даты в текстовомв месяцах без учетаВсе аргументы обязательные. Их в Excel в

 ячеек (на именах)Хотя в примереДумаю что на
в каждом своемВы извините, я форматов, то формулой)
с учетом склонения,

Прошу прощения: был- это Ваше
чтобы преобразование вMsgBox 6olega34 формате функция обрабатывает лет – «ym»; можно задать числами разделе с функциямиivanov1974 ТС — падеж украинский легко будет посте пишите разноцветными не знаю можно будет возвращен месяцДата т.е. сентября. Этот
не прав.

 сообщение дату прошлоCase «Jul»: Подскажите как сделать
неправильно.

в днях без учета или ссылками на определена категория «Дата
: Огромное спасибо всем, одинаквый

CyberForum.ru

перевести (только я

Источник

Как в Excel получить месяц из даты (функция ТЕКСТ и МЕСЯЦ)

Получить месяц из даты требуется довольно часто. Предположим, что у вас есть выгрузка продаж по дням. Даты указаны вот в таком формате:

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

Способ 1. Получить месяц из даты с помощью функции МЕСЯЦ в Excel

Протягиваем формулу и получаем месяц из даты в виде цифры. 5 — это месяц май, 8 — это август и так далее.

Иногда требуется получить месяц из даты в формате текста: «Январь, Февраль, Март. » в этом случае воспользуемся другой функцией.

Способ 2. Получить месяц из даты с помощью функции ТЕКСТ в Excel

Синтаксис будет следующий

Значение это ссылка на ячейку с датой
Формат — для получения месяцев необходимо использовать заглавную букву «М». Причем от ее количества будет зависеть формат отображения (Первая буква месяца, Полное название месяца, короткое название, в виде двойной цифры и одной цифры)
Наглядно это можно посмотреть на скриншоте.

Так например, чтобы получить месяц в формате «Январь, Февраль, Март», необходимо ввести «ММММ».
Формул будет выглядеть следующим образом.

Дата и месяц прописью в Excel

Узнаем как написать дату и месяц прописью в Excel (в том числе в именительном и родительном падежах).

Приветствую всех, дорогие читатели блога TutorExcel.Ru.

Запись с помощью настройки формата ячейки

В Excel существует достаточно большое количество форматов отображения даты.

В открывшемся окне нас интересует вкладка Число:

Среди форматов дат выбираем запись месяца прописью и получаем:

Идем дальше и перейдем к формульному решению задачи.

Запись с помощью формул

Чуть подробнее остановимся на формате.

Ок, с полной записью даты и месяца разобрались, но что если нам нужен только месяц?

Как записать месяц прописью?

На этом все. Выбирайте наиболее понравившийся и удобный для вас способ.

Спасибо за внимание!
Если у вас остались вопросы по теме статьи — пишите в комментариях.

Как в Эксель написать после числа месяц текстом в правильной форме?

В Экселе функция ТЕКСТ позволяет название месяца либо в сокращенной форме, либо в именительном падеже, а как написать текстом название месяца правильно?

Если написать формулу: =ТЕКСТ(«01.04.2019» ; «Д ММММ»)

то в результате будет написано: «1 Апрель»

Как в Excel написать словами название месяца в правильной форме (например «1 апреля»)?

Как в Экселе вывести после числа название месяца текстом в правильном падеже?

Какой формулой в Microsoft Excel можно получить по дате название месяца прописью?

В принципе можно составить громоздкую формулу, что-то типа

Только тут легко запутаться в регистрах и в скобках. Даже редактор БВ не может правильно прожевать этот набор слов.

Поэтому существует специальный вариант подобной формулы (в ячейке A1 — дата):

Обратите внимание на середину формулы, именно такая запись возвращает название месяца в нужном склонении. Остальное — дело техники.

Предлагаю такой вариант.

Имеется дата 30.10.2019 в ячейке А1. Требуется сделать: « 30 » октября 2019 г.

Полностью вся формула для данного значения будет иметь вид:

=СЦЕПИТЬ(«« «;ТЕКСТ(ДЕНЬ(A1);»00 «);» » «;ВЫБОР(МЕСЯЦ(A1);»я нваря»;»февраля»;»мар та»;»апреля»;»мая»;»и юня»;»июля»;»августа» ;»сентября»;»октября» ;»ноября»;»декабря»); » «;ГОД(A1);» г.»)

Если нужно записать конкретно один месяц из определённой даты, тогда формула будет такой:

=ВЫБОР(МЕСЯЦ(А1);»ян варя»;»февраля»;»март а»;»апреля»;»мая»;»ию ня»;»июля»;»августа»; «сентября»;»октября»; «ноября»;»декабря»)

Обратите внимание, месяца здесь написаны вручную и не являются постоянными значениями. Так что вместо них можно написать всё что вашей душе угодно. Суть этой формулы в том, что функция МЕСЯЦ(А1) возвращает номер месяца числом: от 1 до 12. Что является «номером_индекса» для функции ВЫБОР. Сами же значения (или можно задать действия) индексов прописываются следом, по порядку. Таким образом, если номер_индекса равен 1 (что соответствует январю), то функция ВЫБОР возвращает значение1 («января»); если он равен 2, возвращается значение2 («февраля») и так далее.

Формула ТЕКСТ(ДЕНЬ(A1);»00″) добавляет 0 перед днём, который пишется одним числом (преобразует формат написания числа с 1 цифры до двух), таким образом цифры от 1 до 9 будут отображаться как 01, 02 . 09.

Название месяца прописью в MS EXCEL

Пусть в ячейке В6 содердится дата 05.09.2016

С помощью формулы =ТЕКСТ(B6;»ММММ») можно вывести полное название месяца с заглавной буквы в именительном падеже, Сентябрь. Чтобы вывести название со строчной буквы используйте функцию СТРОЧН() .

Примечание: Результат предыдущей формулы — текстовое значение. Если нужно, чтобы в ячейке была дата, то используйте Формат ячеек (нажмите сочетание клавиш CTRL+1). О форматах даты подробнее можно прочитать в статье Пользовательский формат ДАТЫ и ВРЕМЕНИ в MS EXCEL

Формула =ТЕКСТ(B6;»МММ») выведет сокращенное название месяца (3 буквы).

Особый формат =ТЕКСТ(B6;»[$-FC19] ММММ») выведет полное название месяца с учетом склонения, т.е. сентября. Этот формат удобен для вывода фраз, например, Сегодня 1 сентября, но может работать не на всех компьютерах.

Название месяца должно быть в именительном падеже и без опечаток.

Дата прописью в Excel

Пользовательская функция «ДатаПрописью» предназначена для преобразования даты из числового формата Excel в полную текстовую форму. Интервал преобразуемых дат составляет с 2001 по 2099 год. Используется в шаблонах доверенностей, договоров, соглашений, решений, уставов и других документов, заполняющихся в программе Excel и предусматривающих наличие строки с датой прописью. Формат преобразования: 01.01.2001 — «Первого января две тысячи первого года».

Добавить функцию «ДатаПрописью» в рабочую книгу Excel можно двумя способами: импортировать готовый модуль с функцией или самостоятельно добавить программный код в имеющийся модуль, или создав для этого новый.

Импорт модуля с функцией в проект

Импорт готового модуля в книгу Excel — самый простой способ добавления функции «ДатаПрописью».

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

Если вы хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, импортируйте скачанный модуль в Личную книгу макросов.

Вставка кода в стандартный модуль

Создайте новый стандартный модуль и откройте его (или откройте уже имеющийся).
Скопируйте и вставьте в открытый модуль код функции «ДатаПрописью», приведенный ниже.

Если вы хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, вставьте приведенный код в модуль, расположенный в Личной книге макросов.

Работа с функцией в Excel

Итак, если вы импортировали модуль или создали новый и вставили в него код, можете вызывать Мастер функций и работать с функцией «ДатаПрописью», как с любой другой, встроенной в Excel. Найти ее вы сможете в разделе «Определенные пользователем». В настройках вашей программы Excel должно быть разрешено выполнение макросов.

Функцию «ДатаПрописью» в ячейки рабочего листа можно вписывать и вручную. Текст вводимой формулы будет зависеть от того, где расположен модуль с функцией:

в текущей рабочей книге — =ДатаПрописью()
в Личной книге макросов — =PERSONAL.XLSB!ДатаПрописью()

Если вы планируете книгу с функцией «ДатаПрописью» передавать на другой компьютер, модуль с ней должен быть в передаваемой книге.

Источник

Олег Пользователь Сообщений: 254 Регистрация: 22.12.2012	Добрый день! Помогите пожалуйста с формулой. Нужно вставить в ячейку прописью предыдущий месяц Заранее благодарен

Олег Пользователь Сообщений: 254 Регистрация: 22.12.2012	сегодняшний месяц выводится с помощью формулы =ТЕКСТ(МЕСЯЦ(СЕГОДНЯ());»ММММ»)

Олег Пользователь Сообщений: 254 Регистрация: 22.12.2012	Всё, сам разобрался =ТЕКСТ(ДАТАМЕС(СЕГОДНЯ();-1);»ММММ»)

Z Пользователь Сообщений: 6111 Регистрация: 21.12.2012 Win 10, MSO 2013 SP1	#4 16.01.2013 14:27:57 Как вариант: =ДАТАМЕС(B2;-1) при формате [$-419]ММММ;@ … *«Ctrl+S» — достойное завершение ваших гениальных мыслей!..*

Источник

Преобразование даты в текст: месяц (прописью)

tanver

Дата: Среда, 07.01.2015, 20:02 |
Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 59

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Добрый день. Напишите пож. формулу преобразования даты 01.01.2015 в ТЕКСТ: январь.

Благодарю. С уважением Татьяна В.

Ответить

Serge_007

Дата: Среда, 07.01.2015, 20:05 |
Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 15894

Репутация:
2623
±

Замечаний:
±

Excel 2016

На месте можно без формул, форматом ячеек или в другой ячейке формулой с тем же форматом

Код

=ТЕКСТ(A2;»[$-419]ММММ;@»)

Альтернатива:

Код

=ВПР(МЕСЯЦ(A2);{1;»январь»:2;»февраль»:3;»март»:4;»апрель»:5;»май»:6;»июнь»:7;»июль»:8;»август»:9;»сентябрь»:10;»октябрь»:11;»ноябрь»:12;»декабрь»};2;)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

tanver

Дата: Среда, 07.01.2015, 20:20 |
Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 59

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Спасибо, за быстрый ответ. Воспользовалась второй формулой.

Благодарю. С уважением Татьяна В.

Ответить

Никанор

Дата: Пятница, 22.12.2017, 15:11 |
Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 495

Репутация:
12
±

Замечаний:
0% ±

Excel 2007

Serge_007, Здравствуйте!
Извините за беспокойство и что задаю похожий вопрос.

Вы извините, я не знаю можно ли задавать похожие – уточняющие вопросы, когда задал другой участник форума?
Если можно, то задам следующий вопрос:
Формула в Вашем ответе

Код

=ТЕКСТ(A2;»[$-419]ММММ;@»)

даёт результат только название месяца без года.
Например, если в ячейке А2 23.03.17 результат: Март

Если изменить эту формулу на

Код

=ТЕКСТ(A2;»[$-419]ММММ ГГГГ;@»)

результат будет Март 2017

Если изменить эту формулу на

Код

=ТЕКСТ(A2;»[$-419]ДД ММММ ГГГГ;@»)

результат будет 23 Март 2017

Вопрос: Как изменить эту формулу что бы после года была буква г с точкой и в данном примере был результат Март 2017 г.

Ответить

sboy

Дата: Пятница, 22.12.2017, 15:16 |
Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация:
724
±

Замечаний:
0% ±

Excel 2010

Позволю себе ответить за Сергея Serge_007

Код

=ТЕКСТ(A2;»[$-419]ДД ММММ ГГГГ г.;@»)

[p.s.]а зачем Вы в каждом своем посте пишите разноцветными шрифтами?

Яндекс: 410016850021169

Сообщение отредактировал sboy — Пятница, 22.12.2017, 15:18

Ответить

Никанор

Дата: Пятница, 22.12.2017, 15:26 |
Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 495

Репутация:
12
±

Замечаний:
0% ±

Excel 2007

sboy, Здравствуйте!
Спасибо за ответ.

зачем Вы в каждом своем посте пишите разноцветными шрифтами?

Я прост так выделяю – и думаю что так отвечающему будет лучше обратить внимание на главное.
Ведь для чего то есть шрифты.
Но может так не принято?

Скажите пожалуйста, можно ли задавать похожие (уточняющие) вопросы, в комментариях к чужому вопросу?

Сообщение отредактировал Никанор — Пятница, 22.12.2017, 15:27

Ответить

Pelena

Дата: Пятница, 22.12.2017, 15:28 |
Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

Репутация:
4284
±

Замечаний:
±

Excel 2016 & Mac Excel

Прочитайте Правила форума, там есть ответ на Ваш вопрос

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

Источник

Импорт готового модуля в книгу Excel — самый простой способ добавления функции «ДатаПрописью».

‘Преобразование даты из числового формата в текст с 2001 по 2099 год

Public Function ДатаПрописью(md As Date) As String

If (md < 36892) Or (md > 73050) Then

ДатаПрописью = «Преобразуемая дата должна быть с 2001 по 2099 год!»

Else

Dim den As Byte, dg(1 To 4) As Byte, mes As Byte, god As Byte, _

mespr As String, dmgpr As String

den = Day(md)

mes = Month(md)

god = (Year(md) Mod 100)

dg(1) = god Mod 10

dg(2) = Fix(god / 10)

dg(3) = den Mod 10

dg(4) = Fix(den / 10)

Dim dgpr(1 To 4) As String, i1 As Byte

For i1 = 1 To 4

If (i1 = 1) Or (i1 = 3) Then

If dg(i1 + 1) = 1 Then

dgpr(i1) = Choose(dg(i1) + 1, «десятого «, «одиннадцатого «, «двенадцатого «, _

«тринадцатого «, «четырнадцатого «, «пятнадцатого «, «шестнадцатого «, _

«семнадцатого «, «восемнадцатого «, «девятнадцатого «)

Else

dgpr(i1) = Choose(dg(i1) + 1, «», «первого «, «второго «, _

«третьего «, «четвертого «, «пятого «, «шестого «, _

«седьмого «, «восьмого «, «девятого «)

End If

ElseIf (i1 = 2) Or (i1 = 4) Then

If dg(i1 — 1) = 0 Then

dgpr(i1) = Choose(dg(i1) + 1, «», «», «двадцатого «, _

«тридцатого «, «сорокового «, «пятидесятого «, «шестидесятого «, _

«семидесятого «, «восьмидесятого «, «девяностого «)

Else

dgpr(i1) = Choose(dg(i1) + 1, «», «», «двадцать «, _

«тридцать «, «сорок «, «пятьдесят «, «шестьдесят «, _

«семьдесят «, «восемьдесят «, «девяносто «)

End If

mespr = Choose(mes, «января «, «февраля «, «марта «, «апреля «, «мая «, _

«июня «, «июля «, «августа «, «сентября «, «октября «, «ноября «, «декабря «)

dmgpr = dgpr(4) & dgpr(3) & mespr & «две тысячи « & dgpr(2) & dgpr(1) & «года»

ДатаПрописью = Replace(dmgpr, Left(dmgpr, 1), UCase(Left(dmgpr, 1)), 1, 1)

End If

End Function

Источник