1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
DROP PROCEDURE IF EXISTS num_to_text_3r;
delimiter $$
#в качестве аргумента принимаеться целое число, либо число с одним или двумя знаками после запятой. разделители "," и "."
#напр. 12 12 . 99 12 , 90 12 , 9
CREATE PROCEDURE num_to_text_3r(orignum VARCHAR( 128 ))
p_body:BEGIN
DECLARE origlen INT( 11 );
DECLARE iSot INT( 11 );
DECLARE r INT( 11 );
DECLARE i INT( 11 );
DECLARE c1Sot VARCHAR( 32 );
DECLARE c2Sot VARCHAR( 32 );
DECLARE c3Sot VARCHAR( 32 );
DECLARE rtext text;
DECLARE esuff VARCHAR( 32 );
#последние три цифры в числе считаються копейками, в случае отсутствия разделителя добавляем 000
IF locate('.',orignum)> 0 OR locate(',',orignum)> 0 THEN
IF length(substring(orignum,locate('.',orignum)))= 2 OR length(substring(orignum,locate(',',orignum)))= 2
THEN
SET orignum = replace(orignum,'.','0');
SET orignum = replace(orignum,',','0');
SET orignum = CONCAT(orignum,'0');
ELSE
SET orignum = replace(orignum,'.','0');
SET orignum = replace(orignum,',','0');
END IF;
ELSE
SET orignum = concat(orignum,'000');
END IF;
SET origlen = (SELECT length(orignum));
SET r = round(origlen/ 3 + 0 . 3 );
SET i = 0 ;
SET rtext = ' ';
SET esuff = ' ';
WHILE (i<r) DO
SET i = i+ 1 ;
SET iSot = substring(LPAD(orignum,r* 3 ,'0'), -( 3 *i), 3 );
#SELECT iSot,orignum;
CASE substring(iSot,- 3 , 1 )
WHEN 1 THEN SET c1Sot = 'сто';
WHEN 2 THEN SET c1Sot = 'двести';
WHEN 3 THEN SET c1Sot = 'триста';
WHEN 4 THEN SET c1Sot = 'четыреста';
WHEN 5 THEN SET c1Sot = 'пятьсот';
WHEN 6 THEN SET c1Sot = 'шестьсот';
WHEN 7 THEN SET c1Sot = 'семьсот';
WHEN 8 THEN SET c1Sot = 'восемьсот';
WHEN 9 THEN SET c1Sot = 'девятьсот';
WHEN 0 THEN SET c1Sot = ' ';
END CASE;
IF i= 1 OR i= 3 THEN
CASE substring(iSot,- 1 , 1 )
WHEN 1 THEN SET c3Sot = 'одна';
WHEN 2 THEN SET c3Sot = 'две';
WHEN 3 THEN SET c3Sot = 'три';
WHEN 4 THEN SET c3Sot = 'четыре';
WHEN 5 THEN SET c3Sot = 'пять';
WHEN 6 THEN SET c3Sot = 'шесть';
WHEN 7 THEN SET c3Sot = 'семь';
WHEN 8 THEN SET c3Sot = 'восемь';
WHEN 9 THEN SET c3Sot = 'девять';
WHEN 0 THEN SET c3Sot = ' ';
END CASE;
ELSE
CASE substring(iSot,- 1 , 1 )
WHEN 1 THEN SET c3Sot = 'один';
WHEN 2 THEN SET c3Sot = 'два';
WHEN 3 THEN SET c3Sot = 'три';
WHEN 4 THEN SET c3Sot = 'четыре';
WHEN 5 THEN SET c3Sot = 'пять';
WHEN 6 THEN SET c3Sot = 'шесть';
WHEN 7 THEN SET c3Sot = 'семь';
WHEN 8 THEN SET c3Sot = 'восемь';
WHEN 9 THEN SET c3Sot = 'девять';
WHEN 0 THEN SET c3Sot = ' ';
END CASE;
END IF;
CASE substring(iSot,- 2 , 1 )
WHEN 1 THEN
BEGIN
SET c2Sot = ' ';
CASE substring(iSot,- 1 , 1 )
WHEN 1 THEN SET c3Sot = 'одиннадцать';
WHEN 2 THEN SET c3Sot = 'двенадцать';
WHEN 3 THEN SET c3Sot = 'тринадцать';
WHEN 4 THEN SET c3Sot = 'четырнадцать';
WHEN 5 THEN SET c3Sot = 'пятнадцать';
WHEN 6 THEN SET c3Sot = 'шестнадцать';
WHEN 7 THEN SET c3Sot = 'семнадцать';
WHEN 8 THEN SET c3Sot = 'восемнадцать';
WHEN 9 THEN SET c3Sot = 'девятнадцать';
WHEN 0 THEN SET c3Sot = 'десять';
END CASE;
END;
WHEN 2 THEN SET c2Sot = 'двадцать';
WHEN 3 THEN SET c2Sot = 'тридцать';
WHEN 4 THEN SET c2Sot = 'сорок';
WHEN 5 THEN SET c2Sot = 'пятьдесят';
WHEN 6 THEN SET c2Sot = 'шестьдесят';
WHEN 7 THEN SET c2Sot = 'семьдесят';
WHEN 8 THEN SET c2Sot = 'восемьдесят';
WHEN 9 THEN SET c2Sot = 'девяносто';
WHEN 0 THEN SET c2Sot = ' ';
END CASE;
CASE i
WHEN 1 THEN
BEGIN
IF substring(iSot,- 1 , 1 )= 1 THEN SET esuff='копейка'; END IF;
IF substring(iSot,- 1 , 1 )> 1 THEN SET esuff='копейки'; END IF;
IF substring(iSot,- 1 , 1 )> 4 THEN SET esuff='копеек'; END IF;
IF substring(iSot,- 1 , 1 )= 0 THEN SET esuff='копеек'; END IF;
IF substring(iSot,- 2 , 1 )= 1 THEN SET esuff='копеек'; END IF;
IF substring(iSot,- 2 , 1 )= 0 AND substring(iSot,- 1 , 1 )= 0 THEN
SET esuff='ноль копеек'; END IF;
END;
WHEN 2 THEN
BEGIN
IF substring(iSot,- 1 , 1 )= 1 THEN SET esuff='рубль'; END IF;
IF substring(iSot,- 1 , 1 )> 1 THEN SET esuff='рубля'; END IF;
IF substring(iSot,- 1 , 1 )> 4 THEN SET esuff='рублей'; END IF;
IF substring(iSot,- 1 , 1 )= 0 THEN SET esuff='рублей'; END IF;
IF substring(iSot,- 2 , 1 )= 1 THEN SET esuff='рублей'; END IF;
END;
WHEN 3 THEN
BEGIN
IF substring(iSot,- 1 , 1 )= 1 THEN SET esuff='тысяча'; END IF;
IF substring(iSot,- 1 , 1 )> 1 THEN SET esuff='тысячи'; END IF;
IF substring(iSot,- 1 , 1 )> 4 THEN SET esuff='тысяч'; END IF;
IF substring(iSot,- 1 , 1 )= 0 THEN SET esuff='тысяч'; END IF;
IF substring(iSot,- 2 , 1 )= 1 THEN SET esuff='тысяч'; END IF;
IF substring(iSot,- 3 , 1 )= 0 AND substring(iSot,- 2 , 1 )= 0
AND substring(iSot,- 1 , 1 )= 0 THEN SET esuff=' '; END IF;
END;
WHEN 4 THEN
BEGIN
IF substring(iSot,- 1 , 1 )= 1 THEN SET esuff='миллион'; END IF;
IF substring(iSot,- 1 , 1 )> 1 THEN SET esuff='миллиона'; END IF;
IF substring(iSot,- 1 , 1 )> 4 THEN SET esuff='миллионов'; END IF;
IF substring(iSot,- 1 , 1 )= 0 THEN SET esuff='миллионов'; END IF;
IF substring(iSot,- 2 , 1 )= 1 THEN SET esuff='миллионов'; END IF;
IF substring(iSot,- 3 , 1 )= 0 AND substring(iSot,- 2 , 1 )= 0
AND substring(iSot,- 1 , 1 )= 0 THEN SET esuff=' '; END IF;
END;
WHEN 5 THEN
BEGIN
IF substring(iSot,- 1 , 1 )= 1 THEN SET esuff='миллиард'; END IF;
IF substring(iSot,- 1 , 1 )> 1 THEN SET esuff='миллиарда'; END IF;
IF substring(iSot,- 1 , 1 )> 4 THEN SET esuff='миллиардов'; END IF;
IF substring(iSot,- 1 , 1 )= 0 THEN SET esuff='миллиардов'; END IF;
IF substring(iSot,- 2 , 1 )= 1 THEN SET esuff='миллиардов'; END IF;
IF substring(iSot,- 3 , 1 )= 0 AND substring(iSot,- 2 , 1 )= 0
AND substring(iSot,- 1 , 1 )= 0 THEN SET esuff=' '; END IF;
END;
ELSE SET esuff='ERR:слишком большая сумма';
END CASE;
SET rtext = CONCAT(c1Sot,' ',c2Sot,' ',c3Sot,' ',esuff,' ',rtext);
END WHILE;
SET rtext = REPLACE(REPLACE(REPLACE(REPLACE(LTRIM(rtext),' ',' '),' ',' '),' ',' '),' ',' ');
IF locate('рубл',rtext)= 1 THEN SET rtext=concat('ноль ',rtext); END IF;
SELECT rtext;
END;$$
delimiter ;
