Игорь Ковалевский дата публикации 12-01-2005 15:19 Функция для представления "суммы прописью"Автор не возражает против использования Вами программы без изменения ее
оригинального текста и с указанием авторства и года изготовления.
Программа используется в крупной кредитной организации с 1997 года по сей день
в неизменном виде и скоро собирается стать счастливой пра-пра-пра-бабушкой.
Однако это не дает Вам никаких гарантий со стороны Автора, поскольку она
распространяется безвозмездно, то есть даром.
Библиотечка содержит
o функцию для вывода числительных прописью
от 0 до 999 септиллионов (X*10^25);
Пример:
NumeralToPhrase('456') --> 'Четыреста пятьдесят шесть'
o Функцию для перевода слова, связанного с числительным (или единицы
изменения) в соответствующий падеж.
Пример:
GeniCase('10', 'штука','штуки','штук') --> 'штук'
GeniCase('1', 'штука','штуки','штук') --> 'штука'
GeniCase('11', 'штука','штуки','штук') --> 'штук'
GeniCase('21', 'штука','штуки','штук') --> 'штука'
o Функцию для отсечения лидирующих и завершающих пробелов,
эмулирующую поведение аналогичной функции FoxPro.
Все параметры в функции должны передаваться в виде строк, поскольку
целочисленное представление в Dельфи по-прежнему имеет меньшую разрядность,
чем именованный числовой ряд. ;))
(все же, '2147483647' < '999999999999999999999999999').
К материалу прилагаются файлы:
[Сумма прописью...]
Обсуждение материала [ 10-07-2007 03:07 ] 1 сообщение |