Бухия для Украины.
В доверенности графа Кількість (прописом) записывается так: Дев'яносто п'ять целых вісімдесят п'ять сотых.
Так у всех, или только у меня? Как исправить этот суржик?
Функция ПрописьДроби(Знач Ч)
Числ = СокрЛП(Строка(Ч));
Поз = Найти(Числ, ".");
// Анализ целой части
ЦелЧ = Лев(Числ, ?(Поз=0,СтрДлина(Числ),Поз-1));
ЦелЧ = Формат(ЦелЧ, "ЧП");
Если ПустоеЗначение(ЦелЧ) = 1 Тогда
ЦелЧ = "Ноль";
КонецЕсли;
// анализ дробной части
Дроб = "";
Если Поз > 0 Тогда
ЦелЧ = ЦелЧ + " целых ";
Дроб = Сред(Числ, Поз+1);
Длин = СтрДлина(Дроб);
Дроб = НРег(Формат(Число(Дроб), "ЧП"));
Если Длин = 1 Тогда
Дроб = Дроб+" десятых";
ИначеЕсли Длин = 2 Тогда
Дроб = Дроб+" сотых";
ИначеЕсли Длин = 3 Тогда
Дроб = Дроб+" тысячных";
ИначеЕсли Длин = 4 Тогда
Дроб = Дроб+" десятитысячных";
ИначеЕсли Длин = 5 Тогда
Дроб = Дроб+" стотысячных";
ИначеЕсли Длин = 6 Тогда
Дроб = Дроб+" миллионных";
Иначе
Дроб = Дроб+" неопределенных";
КонецЕсли;
КонецЕсли;
Числ = ЦелЧ + Дроб;
Возврат Числ;
КонецФункции
//[поскипано] корректор
Иначе//Если Длин = 6 Тогда //[*] корректор
Дроб = Дроб+" миллионных";
//Иначе //[-] корректор
// Дроб = Дроб+" неопределенных"; //[-] корректор
КонецЕсли;
КонецЕсли;
Числ = ЦелЧ + Дроб//; //[*] корректор
+?(Длин>6," (с хвостиком даже)",""); //[+] корректор
Возврат Числ;
Числ = //ЦелЧ + Дроб; //[*] корректор
Лев(ЦелЧ,Мин(6,СтрДлина(ЦелЧ))+?(Длин>6," (с хвостиком даже)",""); //[+] корректор