ТЕМА:

Серега пишет:

ВНИМАНИЕ: Спойлер!

create or replace function number2word(p_source IN NUMBER --число

,p_int_val1 IN VARCHAR2 --целочисл. ед. валюты в именит. падеже (рубль,доллар)

,p_int_val2 IN VARCHAR2 --целочисл. ед. валюты в родит. падеже ед.числе (рубля,доллара)

,p_int_val3 IN VARCHAR2 --целочисл. ед. валюты в родит. падеже мн.числе (рублей, долларов)

,p_fract_val IN VARCHAR2 --дробная ед. валюты в сокращенной форме (коп., цент.)

)

RETURN varchar2 is

result VARCHAR2(300);

BEGIN

-- Форматируем входное число в хитрый строковый формат

-- r - рубли, k - копейки

result := ltrim(to_char(p_source,

'9,9,,9,,,,,,9,9,,9,,,,,9,9,,9,,,,9,9,,9,,,.99')) || 'k';

result := replace(result, '.', 'r');

-- t - тысячи; m - милионы; M - миллиарды;

result := replace(result, ',,,,,,', 'eM');

result := replace(result, ',,,,,', 'em');

result := replace(result, ',,,,', 'et');

-- e - единицы; d - десятки; c - сотни;

result := replace(result, ',,,', 'e');

result := replace(result, ',,', 'd');

result := replace(result, ',', 'c');

--

result := replace(result, '0c0d0et', '');

result := replace(result, '0c0d0em', '');

result := replace(result, '0c0d0eM', '');



-- Заменим вхождения форматированного представления числа словесными формулировками

result := replace(result, '0c', '');

result := replace(result, '1c', 'сто ');

result := replace(result, '2c', 'двести ');

result := replace(result, '3c', 'триста ');

result := replace(result, '4c', 'четыреста ');

result := replace(result, '5c', 'пятьсот ');

result := replace(result, '6c', 'шестьсот ');

result := replace(result, '7c', 'семьсот ');

result := replace(result, '8c', 'восемьсот ');

result := replace(result, '9c', 'девятьсот ');

--

result := replace(result, '1d0e', 'десять ');

result := replace(result, '1d1e', 'одиннадцать ');

result := replace(result, '1d2e', 'двенадцать ');

result := replace(result, '1d3e', 'тринадцать ');

result := replace(result, '1d4e', 'четырнадцать ');

result := replace(result, '1d5e', 'пятнадцать ');

result := replace(result, '1d6e', 'шестнадцать ');

result := replace(result, '1d7e', 'семнадцать ');

result := replace(result, '1d8e', 'восемнадцать ');

result := replace(result, '1d9e', 'девятнадцать ');

--

result := replace(result, '0d', '');

result := replace(result, '2d', 'двадцать ');

result := replace(result, '3d', 'тридцать ');

result := replace(result, '4d', 'сорок ');

result := replace(result, '5d', 'пятьдесят ');

result := replace(result, '6d', 'шестьдесят ');

result := replace(result, '7d', 'семьдесят ');

result := replace(result, '8d', 'восемьдесят ');

result := replace(result, '9d', 'девяносто ');

--

result := replace(result, '1et', 'одна тысяча ');

result := replace(result, '2et', 'две тысячи ');

result := replace(result, '3et', 'три тысячи ');

result := replace(result, '4et', 'четыре тысячи ');

result := replace(result, '1em', 'один миллион ');

result := replace(result, '2em', 'два миллиона ');

result := replace(result, '3em', 'три миллиона ');

result := replace(result, '4em', 'четыре миллиона ');

result := replace(result, '1eM', 'один миллиард ');

result := replace(result, '2eM', 'два миллиарда ');

result := replace(result, '3eM', 'три миллиарда ');

result := replace(result, '4eM', 'четыре миллиарда ');

--

result := replace(result, '0et', 't');

result := replace(result, '0em', 'm');

result := replace(result, '0eM', 'M');

result := replace(result, '0er', 'r');

--

result := replace(result, '1er', 'один ' || p_int_val1 || ' ');

result := replace(result, '2er', 'два ' || p_int_val2 || ' ');

result := replace(result, '3er', 'три ' || p_int_val2 || ' ');

result := replace(result, '4er', 'четыре ' || p_int_val2 || ' ');

--

result := replace(result, '1e', 'один ');

result := replace(result, '2e', 'два ');

result := replace(result, '3e', 'три ');

result := replace(result, '4e', 'четыре ');

result := replace(result, '5e', 'пять ');

result := replace(result, '6e', 'шесть ');

result := replace(result, '7e', 'семь ');

result := replace(result, '8e', 'восемь ');

result := replace(result, '9e', 'девять ');

--

result := replace(result, 't', 'тысяч ');

result := replace(result, 'm', 'миллионов ');

result := replace(result, 'M', 'миллиардов ');



-- единицы измерения

result := replace(result, 'r', p_int_val3 || ' ');



result := replace(result, 'k', ' ' || p_fract_val || ' ');

if (SUBSTR(Result, 1, length(p_int_val3)) = p_int_val3) then
Result := SUBSTR(Result, length(p_int_val3)+1);

end if;

-- Приведем первый символ выражения в верхний регистр

RETURN(UPPER(SUBSTR(Result, 1, 1)) || SUBSTR(Result, 2));

END number2word;