Статьи Королевства Дельфи


Userunit


Королевство Дельфи
"Knowledge itself is power"
F.Bacon

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

// Владимир Папаев // Скачать этот пример Тестировалось ТОЛЬКО под Delphi 4 !!! ПРАВИЛЬНОЕ СКЛОНЕНИЕ !!! function MoneyToString(S:Currency;kpk:boolean;usd:boolean):string; // если KOP:=TRUE - печать копеек цифрой, иначе прописью // если USD:=TRUE - печать суммы в долларах Пример: m:=123.45; str:=MoneyToString(m,true,false); str = 'сто двадцать три рубля 43 копейки' m:=123.45; str:=MoneyToString(m,false,false); str = 'сто двадцать три рубля сорок три копейки' m:=123.45; str:=MoneyToString(m,true,true); str = 'сто двадцать три доллара 43 цента США' m:=123.45; str:=MoneyToString(m,false,true); str = 'сто двадцать три доллара соро три цента США'




Начало  Назад  Вперед