Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Сокровищница
  
 

Фильтр по датам

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 21:52 Walera
 
 
Во Флориде и в Королевстве сейчас  19:54[Войти] | [Зарегистрироваться]

Функция для представления "суммы прописью"

Игорь Ковалевский
дата публикации 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 сообщение
  
Время на сайте: GMT минус 5 часов

Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.

Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

 
© При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются собственностью их производителей.

Яндекс цитирования