Difference between revisions of "RU/kb/00000104"
From Wiki
Jump to navigationJump to search (опечатка) |
|||
| (14 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
| − | {{DISPLAYTITLE:База Знаний: {{OOoC|1}}. Сумма прописью}} | + | <section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. </noinclude>Сумма прописью<noinclude>}}</noinclude><section end=title /> |
| − | + | {{BreadCrumbL10n|RU/kb/module/calc/automation_calculations}} | |
__NOTOC__ | __NOTOC__ | ||
| Line 11: | Line 11: | ||
Для этого задействуется функция | Для этого задействуется функция | ||
| − | + | <source lang="oobas"> | |
| + | InfraLinux.N2Scribe.Currency2Scribe(n) | ||
| + | </source> | ||
| − | {{ | + | Пример создания пользовательской функции Calc<ref>Пользовательская функция Calc обязательно должна сохраняться в библиотеке Standard, независимо от выбора хранилища (документ, пользовательский профиль или системный профиль).</ref>: |
| − | {{ | + | |
| − | {{ | + | <source lang="oobas"> |
| + | Function CalcCurr2Scribe(curr_value as Currency) as String | ||
| + | If (Not GlobalScope.BasicLibraries.isLibraryLoaded("InfraLinux")) Then GlobalScope.BasicLibraries.LoadLibrary("InfraLinux") | ||
| + | CalcCurr2Scribe = Currency2Scribe(curr_value) | ||
| + | End Function | ||
| + | </source> | ||
| + | |||
| + | После сохранения макроса, в Calc становится доступной функция: | ||
| + | <source lang="oobas"> | ||
| + | =CalcCurr2Scribe(123,45) | ||
| + | </source> | ||
| + | |||
| + | {{Sign|Sancho|А. Е. Харламенков}} | ||
| + | {{OOoProVersion|3.2.x}} | ||
| + | {{RUkbCalcBottom}} | ||
Latest revision as of 20:03, 18 September 2011
Возможность автоматического создания суммы прописью реализована в OpenOffice.org pro начиная с версии 3.2.
Обеспечивается корректное формирование и суммы прописью в рублях и просто — цифры прописью (можно использовать для вывода количества) для всего диапазона значений стандартного бухгалтерского калькулятора в 14 разрядов. Данная функция избавлена от распространённой ошибки накопления погрешности с увеличением разряда числа.
Для этого задействуется функция
InfraLinux.N2Scribe.Currency2Scribe(n)
Пример создания пользовательской функции Calc[1]:
Function CalcCurr2Scribe(curr_value as Currency) as String
If (Not GlobalScope.BasicLibraries.isLibraryLoaded("InfraLinux")) Then GlobalScope.BasicLibraries.LoadLibrary("InfraLinux")
CalcCurr2Scribe = Currency2Scribe(curr_value)
End FunctionПосле сохранения макроса, в Calc становится доступной функция:
=CalcCurr2Scribe(123,45)
OpenOffice.org pro 3.2.x
- ↑ Пользовательская функция Calc обязательно должна сохраняться в библиотеке Standard, независимо от выбора хранилища (документ, пользовательский профиль или системный профиль).
