Слово "Месяц" в склонении в зависимости от числа

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8 Платформа 1С v8.3 Мобильная платформа Оперативный учет План видов характеристик Система компоновки данных Сложные периодические расчеты Управление блокировками Управление правами Управляемые формы 1С Архив с данными Вопрос Найден ответ

1. Vangardo 26.06.20 13:58 Сейчас в теме

Недавно понадобилась такая штука, в зависимости от числа склонять слово месяц. В просторах интернета не нашел. Вот мой вариант. Может кому пригодится)))

Функция МесяцВСклонении(Число)
	Если Прав(Число, 1) = "0" ИЛИ Прав(Число, 1) = "5" ИЛИ Прав(Число, 1) = "6" ИЛИ Прав(Число, 1) = "7" ИЛИ Прав(Число, 1) = "8" ИЛИ Прав(Число, 1) = "9" Тогда
		ТекстМесяц = "Месяцев";
	ИначеЕсли Прав(Число, 1) = "1" Тогда
		ТекстМесяц = "Месяц";	
	Иначе
		ТекстМесяц = "Месяца";
	КонецЕсли;
	Возврат ТекстМесяц;
КонецФункции

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Sashares 34 26.06.20 14:17 Сейчас в теме

(1)https://wonderland.v8.1c.ru/blog/sklonenie-slovosochetaniy-s-chislitelnymi/

3. spacecraft 26.06.20 14:41 Сейчас в теме

(1) и как будет выглядеть для 11 и 12?
11 месяц и 12 месяца?

4. Vangardo 26.06.20 15:04 Сейчас в теме

(3) Ты прав переделал)))

Функция МесяцВСклонении(Число)
	Если Прав(Число, 1) = "0" ИЛИ Прав(Число, 1) = "5" ИЛИ Прав(Число, 1) = "6" ИЛИ Прав(Число, 1) = "7" ИЛИ Прав(Число, 1) = "8" ИЛИ Прав(Число, 1) = "9" или Число = 11 или Число = 12  Тогда
		ТекстМесяц = "Месяцев";
	ИначеЕсли Прав(Число, 1) = "1" Тогда
		ТекстМесяц = "Месяц";	
	Иначе
		ТекстМесяц = "Месяца";
	КонецЕсли;
	Возврат ТекстМесяц;
КонецФункции

Показать

Оставьте свое сообщение

E-mail: