Дата прописью, работает после 2020 года

05.03.21

Разработка - Универсальные функции

+16 –
>
  • Screenshot_363.jpg
  • Screenshot_30.jpg
Возвращает дату полностью в виде текста, не имеет ограничений по датам.

Бесплатные

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО

Наименование Скачано Бесплатно
Дата прописью, работает после 2020 года:
.epf 6,25Kb
64 Скачать бесплатно

Раньше в печатной форме договоров пользовались всем давно известной функцией, но она работает до 2020 года включительно и вот наступил 2021, и меня озадачили.

Готового ничего не нашел, старался использовать наиболее свежие встроенные возможности платформ.

У самого платформа 8.3.18.1289, но должно работать начиная от 8.3.14.

Это первая публикация - не судите строго).

&НаСервере
Функция УниверсальнаяДатаПрописью(Дата) Экспорт
	// Функция Универсальная дата прописью
	// Параметры:
	// Дата - Дата
	// Возвращаемое значение:
	// дата прописью
	// 
	// Модификация для v8.3: Чопоров Денис


	прописьДата = "";
	
	
	прописьДень=СтрЗаменить(
	СтрСоединить(
	ПолучитьСклоненияСтрокиПоЧислу("число",День(Дата),,"ЧС=Порядковое","ПЧ=ЧислоПрописью"),
				),
	"число","");
	
		
	прописьМесяц=СтрСоединить(
	ПолучитьСклоненияСтроки(
		Формат(Дата,"ДФ=ММММ"),
		,
		"ПД=Родительный"),
		);
	
	прописьГод=СтрСоединить(
	ПолучитьСклоненияСтрокиПоЧислу(
		"год",
		Год(Дата),
		,"ЧС=Порядковое",
		"ПД=Родительный; ПЧ=ЧислоПрописью"),
		);    
	
	
		прописьДата=НРег(прописьДень+прописьМесяц+" "+прописьГод);
	Возврат прописьДата;
КонецФункции

 

Вступайте в нашу телеграмм-группу Инфостарт

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

+16 –

См. также

Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    4543    Abysswalker    11    

46
Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025    8426    DeerCven    15    

62
В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024    10435    256    ixijixi    10    

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

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

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

21.05.2024    55916    dimanich70    84    

174
Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    7910    7    John_d    13    

59
GUID в 1С 8.3

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    70363    atdonya    31    

72
Переоткрытие внешних обработок

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    9898    ke.92@mail.ru    17    

68
Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023    45712    YA_418728146    16    

129
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. metatron_rus 12.03.21 11:15 Сейчас в теме
Доброго времени суток.
Версия платформы 8.3.14.1565
Решил протестировать вашу обработку. Без "ПД=Именительный" не отображается число прописью. Хоть в контекстной подсказке и написано: "ПД (CS) – Падеж. Если не указан, то выполняется только согласование и возвращается форма именительного падежа."
+ – Ответить
2. user1248331 16 12.03.21 14:58 Сейчас в теме
Возможно, знающие люди уже сделали замечание, что тестирование на крайних версиях Платформы мало продуктивно, т.к. массово они не применяются, но я все же решился поделиться универсальным способом, т.к. день потратил на поиски готового решения и не нашел.
+ – Ответить
3. kirillbul 12.01.23 12:26 Сейчас в теме
На 8.3.21.1624 работает, спасибо автору!
Можно еще вынести описание функции за саму функцию
+ – Ответить
4. STivO 60 09.03.23 18:25 Сейчас в теме
Спасибо за решение. Немного рефакторинга внес от себя: 

Функция ДатаПрописью(Дата) 
	Возврат СтрШаблон("%1 %2 %3", 
				ДеньПрописью(День(Дата)), 
				НРег(МесяцПрописью(Месяц(Дата), "Родительный")), 
				НРег(ГодПрописью(Год(Дата), "Родительный"))
			);
КонецФункции

Функция ДеньПрописью(День)
	Результат = "";
	
	Если День > 0 Тогда
		Результат = ПолучитьСклоненияСтрокиПоЧислу("число", День,, "ЧС=Порядковое", "ПЧ=ЧислоПрописью")[0];
		Результат = СтрЗаменить(Результат, " число", ""); 
	КонецЕсли;
	
	Возврат Результат;
КонецФункции

Функция МесяцПрописью(Месяц, Падеж = "Именительный")
	Результат = "";
	
	Если Месяц >= 1 И Месяц <= 12 Тогда
		Результат = ПолучитьСклоненияСтроки(Формат(Дата(1, Месяц, 1), "ДФ=ММММ"),, "ПД=" + Падеж)[0];	
	КонецЕсли;
		
	Возврат Результат;
КонецФункции

Функция ГодПрописью(Год, Падеж = "Именительный")	
	Результат = "";
	
	Если Год > 0 Тогда
		Результат = ПолучитьСклоненияСтрокиПоЧислу("год", Год,, "ЧС=Порядковое", "ПЧ=ЧислоПрописью; ПД=" + Падеж)[0];  
	КонецЕсли;
	
	Возврат Результат;
КонецФункции
Показать
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация