Дробное число прописью

[taran1]

Приветствую! Поиском по форуму юзал, в тырнете гуглил и нигде не нашел
У меня следующая проблема: необходим код VBA функции, что-бы к примеру число 123,33 переводило как - сто двадцать три целых тридцать три сотых, т.е. без рублей и дробная часть должна писаться прописью... Заранее спасибо!

[Serge_Bliznykov]

вот решение на VBA
(c) Автор: Дмитрий Милосердов

'D_1000166
'Сумма Прописью по Дмитрию Милосердову (универсальная)

'Автор: Дмитрий Милосердов
'dimonm@ yahoo.com

'Универсальная функция суммы прописью с учетом 5-и знаков после запятой. Понимает женский, средний и мужской род.

'================================== =================================== ======
'АВТОР: Дмитрий Милосердов mailtoimonm@yahoo.com
'
'Вы можете свободно использовать его в своих программах если сочтете полезным.
'Всякие гарантии по поводу его работоспособности и возможные последствия
'работы модуля автор с себя снимает (хотя таковых не должно быть).
'================================== =================================== ========
'УНИВЕРСАЛЬНАЯ ФУНКЦИЯ ВЫВОДА ЧИСЛА (включающая в себя также дробные числа) ПРОПИСЬЮ
'на русском языке

я в Access не проверял.
функция используется в XLS, но я не вижу препятствий использовать её в MS Access...

[taran1]

Сообщение от Serge_Bliznykov

вот решение на VBA
(c) Автор: Дмитрий Милосердов




я в Access не проверял.
функция используется в XLS, но я не вижу препятствий использовать её в MS Access...

Огромное спасибо! Кок раз то, что мне было нужно, посмотрел вроде всё без ошибок делает

[taran1]

Единственно вот с этим моментом не могу разобраться:
152,2 сто пятьдесят две целых две десятых , при выборе мужского рода, по идее должно выводить сто пятьдесят два целых две десятых ? Не знаете в чем там ошибка?
В коде вроде все для правильного отображения есть, может где-то что-то подправить нужно, что-бы при выборе мужского рода писалось "один" и "два"?

PHP код:

If l1 <> 0 Then
If Not IsNumHidden Then
SummaPropisTriada = SummaPropisTriada & Choose(l1, Choose(iPol, "один", "одна", "одно"), Choose(iPol, "два", "две", "два"), "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
SummaPropisTriada = SummaPropisTriada & " "
End If
End If 


[Serge_Bliznykov]

Покажите, как Вы вызываете...

Там, как мне помнится, при вызове функции передаётся пол.
попробуйте в функцию последним параметром передать русскую букву "м"

[taran1]

Сообщение от Serge_Bliznykov

Покажите, как Вы вызываете...

Там, как мне помнится, при вызове функции передаётся пол.
попробуйте в функцию последним параметром передать русскую букву "м"

Вызываю так: SummaPropis([Число];"";"";"";"";"м")
цифра 2 выводится как два - т.е. в мужском роде, а вот если дробь, к примеру 152,2 как сто пятьдесят две целых две десятых ...

[Serge_Bliznykov]

возможно, что я ошибаюсь, но:

к примеру 152,2 как сто пятьдесят две целых две десятых ...

мне кажется, что если в тексте появляется слово ЦЕЛЫХ, то для согласования как раз и нужен женский род..

сто пятьдесят ДВА ЦЕЛЫХ две десятых... имхо, это как-то неправильно...

если считаете, что это не так - можно поправить исходник...

[taran1]

Сообщение от Serge_Bliznykov

возможно, что я ошибаюсь, но:

мне кажется, что если в тексте появляется слово ЦЕЛЫХ, то для согласования как раз и нужен женский род..

сто пятьдесят два целых две десятых... имхо, это как-то неправильно...

т.е. сто пятьдесят две целых две десятых метра будет правильно? Походу придется к учителю русского языка за помощью обращаться
Спасибо за помощь!