Имя: Пароль:
1C
1С v8
Число прописью
0 safrusraf
 
07.07.17
12:57
Здравствуйте.
Есть Функция ЧислоПрописью которая число 1,1 выведет как "один рубль 1 копейка". А как по простому вывести "1 рубль 1 копейка"?
1 polosov
 
07.07.17
12:59
(0) СтрЗаменить (ТвояСтрока, "один", "1");
2 Ц_У
 
07.07.17
13:00
(1) сильно!
3 Naf2017
 
07.07.17
13:05
1,1 это "один рубль десять копеек"
4 safrusraf
 
07.07.17
13:09
(3) Ну, я образно. Пусть 1,01 не в этом суть
5 Naf2017
 
07.07.17
13:10
напиши свою в общем
6 Naf2017
 
07.07.17
13:12
+(5) вот у меня уже есть склонение

Функция СклонениеКоличества(Количество,ЕдинственноеЧисло,ДвойственноеЧисло,МножественноеЧисло) Экспорт
    
    Остаток10 = Количество % 10;
    Остаток100 = ((Количество-Остаток10)/10)%10;
    Результат=МножественноеЧисло;
    Если Остаток100<>1 Тогда
        Если Остаток10=1 Тогда
            Результат=ЕдинственноеЧисло;
        ИначеЕсли Остаток10=2 или Остаток10=3 или Остаток10=4 Тогда
            Результат=ДвойственноеЧисло;
        КонецЕсли;
    КонецЕсли;
    Возврат Результат;    
        
КонецФункции
7 Chum
 
07.07.17
13:14
Цел(Сумма)+" рубль " + (Сумма-Цел(Сумма))*100 + " копеек"
8 Zmich
 
07.07.17
13:15
В сформированной прописью строке заменить то, что идет до строки "рубл" (т.к. может быть рубль, рублей, рубля - поэтому поиск нужно делать по "рубл"), на целую часть числа.
СтрЗаменить(ТвояСтрока, Лев(ТвояСтрока, Найти(ТвояСтрока, "рубл") - 1), Строка(Цел(ТвоеЧисло)))
9 safrusraf
 
07.07.17
13:18
(8) Наверно, так придется. Спасибо. Просто не совсем понятно для копеек сделали возможность выводить циферками, а для рублей нет.
10 Zmich
 
07.07.17
13:20
(9). Для платежных документов такой формат прописи числа -
это общепринятая практика.
11 safrusraf
 
07.07.17
13:25
(10) Понятно. Спасибо
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.