Функция, возвращающая дату прописью

6 9

В некоторых документах важным реквизитом является дата, и возникает необходимость вывести ее прописью. Примерами таких документов являются доверенности, накладные и платежные поручения.

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

Пример вызова функции:

DateInWords(Today(); 'S')
// двенадцатое мая две тысячи десятого года
DateInWords(Today(); 'G')
// двенадцатого мая две тысячи десятого года

DateInWords_function.zip (4,02 Кб)

6
Авторизуйтесь, чтобы оценить материал.
Антон Суханов

сразу возникает вопрос, а есть функция, которая бы выводила ФИО работника в дательном падеже?

Ксения Иванова
сразу возникает вопрос, а есть функция, которая бы выводила ФИО работника в дательном падеже?

Этот вопрос действительно актуален. Задача просклонять по падежам ФИО, названия регионов, городов итд. возникает при автоматическом формировании писем и документов (например таких как договорные документы и доверенности).

Насколько я знаю, в DIRECTUM такой возможности нет, но существует ряд модулей, где это реализовано. Например, на этом сайте http://morpher.ru/Products.aspx предлагают решение для различных платформ и языков программирования.

Денис Баранов
Алексей Язынин

вот и на нашем форме настали благословенные времена, когда ответить на вопрос можно ссылкой на наш же форум ) Либо новые вопросы не так часто появляются, либо объем опубликованной информации уже велик

Владимир Винников

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

Ксения Иванова

СумПроп - системная функция

Василий Кутькин

Как реализовать чтоб было в виде?

12 мая 2010 г.

Иван Чурбаков

А для этого есть системная функция FormatDate()

Алексей Пестов

 Неправильно выполняет преобразование 2012,2013.. годов, необходимо:

if Copy(Year; 3; 1) = 1
              YearInWords = YearInWords & ' ' & FirstTen.FindItem(Copy(Year; 3; 1))

Заменить на:

if Copy(Year; 3; 1) = 1
              YearInWords = YearInWords & ' ' & FirstTen.FindItem(Copy(Year; 4; 1))

Авторизуйтесь, чтобы написать комментарий