1 CREATE OR REPLACE FUNCTION MONEY_TO_CHINESE(MONEY IN VARCHAR2)
2 RETURN VARCHAR2 IS
3 C_MONEY VARCHAR2(12);
4 M_STRING VARCHAR2(60) := '分角圆拾佰仟万拾佰仟亿';
5 N_STRING VARCHAR2(40) := '壹贰叁肆伍陆柒捌玖';
6 B_STRING VARCHAR2(80);
7 N CHAR;
8 LEN NUMBER(3);
9 I NUMBER(3);
10 TMP NUMBER(12);
11 IS_ZERO BOOLEAN;
12 Z_COUNT NUMBER(3);
13 L_MONEY NUMBER;
14 L_SIGN VARCHAR2(10);
15 BEGIN
16 L_MONEY := ABS(MONEY);
17
18 IF MONEY < 0 THEN
19 L_SIGN := '负';
20 ELSE
21 L_SIGN := '';
22 END IF;
23
24 TMP := ROUND(L_MONEY, 2) * 100;
25 C_MONEY := RTRIM(LTRIM(TO_CHAR(TMP, '999999999999')));
26 LEN := LENGTH(C_MONEY);
27 IS_ZERO := TRUE;
28 Z_COUNT := 0;
29 I := 0;
30
31 WHILE I < LEN LOOP
32 I := I + 1;
33 N := SUBSTR(C_MONEY, I, 1);
34
35 IF N = '0' THEN
36 IF LEN - I = 6 OR LEN - I = 2 OR LEN = I THEN
37 IF IS_ZERO THEN
38 B_STRING := SUBSTR(B_STRING, 1, LENGTH(B_STRING) - 1);
39 IS_ZERO := FALSE;
40 END IF;
41
42 IF LEN - I = 6 THEN
43 B_STRING := B_STRING || '万';
44 END IF;
45
46 IF LEN - I = 2 THEN
47 B_STRING := B_STRING || '圆';
48 END IF;
49
50 IF LEN = I THEN
51 B_STRING := B_STRING || '整';
52 END IF;
53
54 Z_COUNT := 0;
55 ELSE
56 IF Z_COUNT = 0 THEN
57 B_STRING := B_STRING || '零';
58 IS_ZERO := TRUE;
59 END IF;
60
61 Z_COUNT := Z_COUNT + 1;
62 END IF;
63 ELSE
64 B_STRING := B_STRING || SUBSTR(N_STRING, TO_NUMBER(N), 1) ||
65 SUBSTR(M_STRING, LEN - I + 1, 1);
66 Z_COUNT := 0;
67 IS_ZERO := FALSE;
68 END IF;
69 END LOOP;
70
71 B_STRING := L_SIGN || B_STRING;
72 RETURN B_STRING;
73 EXCEPTION
74 WHEN OTHERS THEN
75 RETURN(SQLERRM);
76 END;
77
78
79 CREATE OR REPLACE FUNCTION TO_UPPER_NUM
80 (
81 P_NUM IN NUMBER DEFAULT NULL,
82 P_ROUND NUMBER DEFAULT 2, --输出要保留的小数位数
83 P_MONTH NUMBER DEFAULT 1 --输出不为月份或者日时
84 )
85 RETURN VARCHAR2
86 IS
87 /**
88 *阿拉伯数字转化为大写汉字的函数
89 *输入参数转换前的数字,要保留的小数位数(4舍5入可以不输入,默认为小数点后2位)
90 *输出参数为转化后的大写数字
91 *支持小数点和负数,但数字整数部分不能超过16位
92 *支持转换月份和日期,如 SELECT TO_UPPER_NUM('31','3','2') FROM DUAL
93 *--日期例子(年份的转换见另一个函数)
94 * SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||
95 * TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||
96 * TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日'
97 * FROM DUAL ;
98 *--货币例子(截取小数点后两位,四舍五入)
99 * SELECT TO_UPPER_NUM(1234.564) FROM dual ;
100 */
101 RESULT NVARCHAR2(100) := ''; --返回大写汉字字符串
102 NUM_ROUND NVARCHAR2(100) := TO_CHAR(ABS(ROUND(P_NUM, P_ROUND))); --转换数字为小数点后p_round位的字符(正数)
103 NUM_LEFT NVARCHAR2(100); --小数点左边的数字
104 NUM_RIGHT NVARCHAR2(100); --小数点右边的数字
105 STR1 NCHAR(10) := '零壹贰叁肆伍陆柒捌玖'; --数字大写
106 STR2 NCHAR(16) := '点拾佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)
107 STR3 NCHAR(10) := '〇一二三四五六七八九'; --月份数字大写
108 STR4 NCHAR(16) := '点十佰仟万拾佰仟亿拾佰仟万拾佰仟'; --数字位数(从低至高)
109 NUM_PRE NUMBER(1) := 1; --前一位上的数字
110 NUM_CURRENT NUMBER(1); --当前位上的数字
111 NUM_COUNT NUMBER := 0; --当前数字位数
112 BEGIN
113 --转换数字为NULL时，返回NULL
114 IF P_NUM IS NULL THEN
115 RETURN NULL;
116 END IF;
117 --如果要转换月份或者日时,则替换临时变量
118 IF P_MONTH <> 1 THEN
119 STR1 := STR3;
120 STR2 := STR4;
121 END IF;
122 --取得小数点左边的数字
123 SELECT TO_CHAR(NVL(SUBSTR(TO_CHAR(NUM_ROUND),
124 1,
125 DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),
126 0,
127 LENGTH(NUM_ROUND),
128 INSTR(TO_CHAR(NUM_ROUND), '.') - 1)),
129 0))
130 INTO NUM_LEFT
131 FROM DUAL;
132 --取得小数点右边的数字
133 SELECT SUBSTR(TO_CHAR(NUM_ROUND),
134 DECODE(INSTR(TO_CHAR(NUM_ROUND), '.'),
135 0,
136 LENGTH(NUM_ROUND) + 1,
137 INSTR(TO_CHAR(NUM_ROUND), '.') + 1),
138 P_ROUND)
139 INTO NUM_RIGHT
140 FROM DUAL;
141 --数字整数部分超过16位时.采用从低至高的算法，先处理小数点左边的数字
142 IF LENGTH(NUM_LEFT) > 16 THEN
143 RETURN '**********';
144 END IF;
145 FOR I IN REVERSE 1 .. LENGTH(NUM_LEFT) LOOP
146 --(从低至高)
147 NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_LEFT, I, 1)); --当前位上的数字
148 NUM_COUNT := NUM_COUNT + 1; --当前数字位数
149 --当前位上数字不为0按正常处理
150 IF NUM_CURRENT > 0 THEN
151 --如果转换数字最高位是十位,转换后不需要前面的壹,如月份12转换后为拾贰,则
152 IF NUM_CURRENT = 1 AND P_MONTH <> 1 AND NUM_COUNT = 2 THEN
153 RESULT := SUBSTR(STR2, NUM_COUNT, 1) || RESULT;
154 STR1 := STR3;
155 ELSE
156 RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1)
157 ||SUBSTR(STR2, NUM_COUNT, 1)
158 || RESULT;
159 END IF;
160 ELSE
161 --当前位上数字为0时
162 IF MOD(NUM_COUNT - 1, 4) = 0 THEN
163 --当前位是点、万或亿时
164 RESULT := SUBSTR(STR2, NUM_COUNT, 1) || RESULT;
165 NUM_PRE := 0; --点、万,亿前不准加零
166 END IF;
167 IF NUM_PRE > 0 OR LENGTH(NUM_LEFT) = 1 THEN
168 --上一位数字不为0或只有个位时
169 RESULT := SUBSTR(STR1, NUM_CURRENT + 1, 1) || RESULT;
170 END IF;
171 END IF;
172 NUM_PRE := NUM_CURRENT;
173 END LOOP;
174 --再处理小数点右边的数字
175 IF LENGTH(NUM_RIGHT) > 0 THEN
176 FOR I IN 1 .. LENGTH(NUM_RIGHT) LOOP
177 --(从高至低)
178 NUM_CURRENT := TO_NUMBER(SUBSTR(NUM_RIGHT, I, 1)); --当前位上的数字
179 RESULT := RESULT || SUBSTR(STR1, NUM_CURRENT + 1, 1);
180 END LOOP;
181 ELSE
182 RESULT := REPLACE(RESULT, '点', ''); --无小数时去掉点
183 END IF;
184 --转换数字是负数时
185 IF P_NUM < 0 THEN
186 RESULT := '负' || RESULT;
187 END IF;
188 RETURN RESULT;
189 EXCEPTION
190 WHEN OTHERS THEN
191 DBMS_OUTPUT.PUT_LINE(SQLERRM);
192 RETURN '';
193 END;
194
195
196 CREATE OR REPLACE FUNCTION TO_UPPER_YEAR(YEAR_IN IN VARCHAR2)
197 RETURN VARCHAR2
198 /**
199 *年转化为大写汉字的函数 如将2008转换为二〇〇八
200 *月份和日期转换的可以调用 TO_UPPER_NUM 函数
201 *如SELECT TO_UPPER_NUM('21','2','2') FROM DUAL
202 *查询系统大写年月日如下:
203 *SELECT TO_UPPER_YEAR(TO_CHAR(SYSDATE,'YYYY')) || '年' ||
204 * TO_UPPER_NUM(TO_CHAR(SYSDATE,'MM'),'2','2') || '月' ||
205 * TO_UPPER_NUM(TO_CHAR(SYSDATE,'DD'),'2','2') || '日' SJ
206 *FROM DUAL
207 */
208 IS
209 TEMP VARCHAR2(32767);
210 RESULT VARCHAR2(32767);
211 STR VARCHAR2(32767) := '〇一二三四五六七八九';
212 BEGIN
213 IF YEAR_IN IS NULL THEN
214 RETURN NULL;
215 END IF;
216 FOR I IN 1 .. LENGTH(YEAR_IN)
217 LOOP
218 SELECT SUBSTR(STR, SUBSTR(YEAR_IN,I, 1) + 1, 1)
219 INTO TEMP
220 FROM DUAL;
221 RESULT := RESULT || TEMP;
222 END LOOP;
223 RETURN RESULT;
224 EXCEPTION
225 WHEN OTHERS THEN
226 DBMS_OUTPUT.PUT_LINE(SQLERRM);
227 RETURN '';
228 END;
