Число прописью по русски

[Shavminator]

Я еще не знаком с Delphi.
Кто нибудь, скажите пожалуста, алгоритм написания сумму в пропись простым русским языком а не кодом.
Просто хочу понять, как все это делается, потом можно будет сделать это на любом языке.
Заранее благодарю.

[Noor]

Вот примочка для работы с прописными валютами в Excel
ЗАБРАТЬ

[Shavminator]

Спасибо Noor
Но, у меня вышла такая проблема,
У меня Excel 2003, и такой папки не существует C\Program Files\Microsoft Office\Office\XLStart\
ну это не большая проблема,
проблема в том что в мастере функций, в списке категория, нету пункта Определенные пользователем.
Что делать?

[Shavminator]

Если можно дайте пожалуйста, алгоритм написания суммы прописи,
ну это для меня, как начинающего программиста, я еще не очень умею думать алгоритмично.
Спасибо

[_SERGEYX_]

Зайди вот сюда
http://delphiworld.narod.ru/_syntax_.html
В разделе "Текст и Строки" найдешь полтора десятка алгоритмов.

А вообще, все просто. Разбиваем дробное число на int() - рубли и frac()- копейки. Если в int() два символа - то это десятки, если три - сотни и т.д. и для каждого разряда пишем

var i: Integer;
if НАША_ЦИФРА = 1 then
case i of
1: с := 'сто';
2: с := 'двести';
3: с := 'триста';
..................................
if НАША_ЦИФРА = 2 then
case i of
1: с := '';
2: с := 'двадцать';
3: с := 'тридцать';
................................... .
То же делаем и для копеек.
Останется обработать 2 вещи...
1. Второй десяток, т.е один...надцать, две...надцать, три...надцать и т.д.
2. Падежи. Если цифра 1 в рублях, то пишем ОДИН (рубль), если в копейках - пишем ОДНА (копейка) и далее по этому принципу.
Если единица относится к тысячам - тоже пишем ОДНА (тысяча).
Но не стоит изобретать велосипед. Все давно уже написано за нас.

[Shavminator]

Ну за эти строки, огромное спасибо.