Владимир Папаев
дата публикации 12-01-2005 15:22

---

Версия для печати

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 = 'сто двадцать три доллара сорок три цента США'

• Исходный текст (2 K) обновление от 1/12/2005 3:22:00 PM