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

17.05.2016 11:50

17332

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

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

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

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

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

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

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

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

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

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