SpellRur(X : Currency) : String
Сумма в рублях прописью

Функция возвращает сумму в рулях прописью.

Пример:

Procedure OnCreate;            
Begin
  Warning('1) '+SpellRur(1000));
  // 1) Одна тысяча рублей 00 копеек

  Warning('2) '+SpellRur(-123456789123456.21c));
  // 2) Минус сто двадцать три триллиона четыреста пятьдесят шесть миллиардов семьсот восемьдесят девять миллионов сто двадцать три тысячи четыреста пятьдесят шесть рублей 21 копейка
  
  // Можно так же воспользоваться общей функцией
  Warning('X) '+Spell(1000.10c, 1, 'рублей', 'рубль', 'рубля', 'копеек', 'копейка', 'копейки'));
  // X) Одна тысяча рублей 10 копеек
End;

Смотри функцию Spell.

© RTIT