1CLenta.ru  

Вывести месяц прописью

Программирование системы     17.05.2016 11:50     15930

Во встроенном языке 1С есть функция Формат(), которая позволяет задавать формат вывода даты.Используя форматную строку можно задать формат вывода при котором выведется число месяца и месяц прописью. Если необходимо получить только месяц прописью, то можно воспользоваться функциями представленными ниже.

Функция ПолучитьМесяцПрописью() через Формат()


Функция встроенного языка 1С, приводит дату к определенному формату. Функция Формат() форматирует дату, число, булевое значение. С помощью форматной строки можно задать вывод месяца прописью. Месяц прописью склоняется только вместе с номером дня месяца. С помощью функции Сред() встроенного языка 1С, можно вырезать наименование месяца.
Пример
Дата = 17.05.2016
Результат = "мая"

Функция ПолучитьМесяцПрописью(Дата)

ТекущаяДата = Формат(Дата, "ДФ='дд ММММ'");
МесяцПрописью = Сред(ТекущаяДата, 4);
Возврат МесяцПрописью;

КонецФункции


Функция ПолучитьМесяцПрописью()


Данная функция работает более гибко. Например, позволяет задать регистр букв в наименовании месяца или установить падеж. На вход принимает дату, а возвращает месяц прописью.
Пример
Дата = 17.05.2016
Результат = "мая"

Функция ПолучитьМесяцПрописью(Дата)

НомерМесяца = Месяц(Дата);

СоответствиеМесяцев = Новый Соответствие();
СоответствиеМесяцев.Вставить(1, "января");
СоответствиеМесяцев.Вставить(2, "февраля");
СоответствиеМесяцев.Вставить(3, "марта");
СоответствиеМесяцев.Вставить(4, "апреля");
СоответствиеМесяцев.Вставить(5, "мая");
СоответствиеМесяцев.Вставить(6, "июня");
СоответствиеМесяцев.Вставить(7, "июля");
СоответствиеМесяцев.Вставить(8, "августа");
СоответствиеМесяцев.Вставить(9, "сентября");
СоответствиеМесяцев.Вставить(10, "октября");
СоответствиеМесяцев.Вставить(11, "ноября");
СоответствиеМесяцев.Вставить(12, "декабря");

Возврат СоответствиеМесяцев[НомерМесяца];

КонецФункции

Комментарии (0)