Как в 1С 7.7 вывести число прописью?

[Odineski]

Как в 1С 7.7 Вывести число прописью

[Odin — Одинэсник]

Привет, An!

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

1. Создайте файл 1cv7.spl с содержимым, описывающим числительные. Например:

1С (Код)

plaintext {"Speller", {"Money", {"Рубль","Рубля","Рублей","Копейка","Копейки","Копеек","M"}}, {"Numbers", {"Ноль","Один","Два","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять","Десять", "Одиннадцать","Двенадцать","Тринадцать","Четырнадцать","Пятнадцать","Шестнадцать","Семнадцать","Восемнадцать","Девятнадцать", "Двадцать","Тридцать","Сорок","Пятьдесят","Шестьдесят","Семьдесят","Восемьдесят","Девяносто", "Сто","Двести","Триста","Четыреста","Пятьсот","Шестьсот","Семьсот","Восемьсот","Девятьсот", "Тысяча","Тысячи","Миллион","Миллиона","Миллиард","Миллиарда","Триллион","Триллиона"}}}

1 2 3 4 5 6 7 8 9 10

plaintext {"Speller", {"Money", {"Рубль","Рубля","Рублей","Копейка","Копейки","Копеек","M"}}, {"Numbers", {"Ноль","Один","Два","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять","Десять", "Одиннадцать","Двенадцать","Тринадцать","Четырнадцать","Пятнадцать","Шестнадцать","Семнадцать","Восемнадцать","Девятнадцать", "Двадцать","Тридцать","Сорок","Пятьдесят","Шестьдесят","Семьдесят","Восемьдесят","Девяносто", "Сто","Двести","Триста","Четыреста","Пятьсот","Шестьсот","Семьсот","Восемьсот","Девятьсот", "Тысяча","Тысячи","Миллион","Миллиона","Миллиард","Миллиарда","Триллион","Триллиона"}}}

2. В коде 1С подключите этот файл и используйте функцию Пропись():

1С (Код)

1C Пропись("1CV7.SPL"); // Задаем использование вывода прописью из этого файла Число_50_В_Род_Падеже = Формат(50, "ЧП"); Сообщить(Число_50_В_Род_Падеже); // Выводит "Пятидесяти" Пропись(""); // Возвращаемся к дефолтному файлу

1 2 3 4 5

1C Пропись("1CV7.SPL"); // Задаем использование вывода прописью из этого файла Число_50_В_Род_Падеже = Формат(50, "ЧП"); Сообщить(Число_50_В_Род_Падеже); // Выводит "Пятидесяти" Пропись(""); // Возвращаемся к дефолтному файлу

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

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/370200/

[Автор]

Сообщения