返回人民币大写方式（num2rmb） 

  1 CREATE OR REPLACE FUNCTION num2rmb(Pi_MONEY NVARCHAR2) RETURN NVARCHAR2 IS
  2 -- PURPOSE :返回人民币大写方式
  3 v_NUM NUMBER;
  4 I NUMBER;
  5 J NUMBER;
  6 K NUMBER;
  7 L NUMBER;
  8 FS1 NVARCHAR2(500);
  9 FS2 NVARCHAR2(500);
 10 FS3 NVARCHAR2(500);
 11 S NVARCHAR2(500);
 12 S1 NVARCHAR2(500);
 13 S2 NVARCHAR2(500);
 14 ZERO NUMBER;
 15 POS NUMBER;
 16 H NUMBER;
 17 T NUMBER(5,4);
 18 v_money NUMBER;
 19 BEGIN
 20 v_money := round(Pi_MONEY,2);
 21 IF NVL(v_money,0)=0
 22 OR INSTR(v_money,'.')>=18 THEN
 23 RETURN '无';
 24 END IF;
 25 ZERO :=0;
 26 POS :=0;
 27 FS1 :='零壹贰叁肆伍陆柒捌玖';
 28 FS2 :='仟佰拾万仟佰拾元';
 29 FS3 :='仟佰拾万仟佰拾亿';
 30 H := TRUNC(v_money);---整数部分
 31 T := v_money - H;---小数部分
 32 IF T =0 THEN
 33 ---形成字符串
 34 S := LPAD(TO_CHAR(H),16,'0')||'.0000';
 35 ELSE
 36 S := LPAD(TO_CHAR(H),16,'0')|| RPAD(TO_CHAR(T),5,'0');
 37 END IF;
 38 S1 := SUBSTR(S,1,8)||'.';
 39 --整理亿位数字
 40 FOR I IN 1..8 LOOP
 41 IF I >= POS THEN
 42 ---else skip 0
 43 L := TO_NUMBER(SUBSTR(S1, I,1));
 44 IF L >0 THEN
 45 --add fs1 and fs2 char
 46 S2 := S2 || SUBSTR(FS1, L +1,1)|| SUBSTR(FS3, I,1);
 47 ZERO :=1;--有整数
 48 ELSE
 49 IF I =4 THEN
 50 S2 := S2 ||'万';
 51 END IF;---插入万字，因为从此出分隔一次循环
 52 POS := I +1;
 53 FOR J IN I +1..9 LOOP
 54 IF J =4
 55 AND SUBSTR(S1, J,1)='0'
 56 AND S2 IS NOT NULL
 57 AND ZERO =1 THEN
 58 S2 := S2 ||'万';
 59 END IF;
 60 IF SUBSTR(S1, J,1)='0' THEN
 61 POS := POS +1;
 62 END IF;
 63 EXIT WHEN SUBSTR(S1, J,1)!='0';--POS >=9;
 64 END LOOP;
 65 IF POS =9
 66 AND SUBSTR(S1,1,8)>=1 THEN
 67 S2 := S2 ||'亿';--无个亿位,直接加亿
 68 ELSE
 69 IF ZERO =1 THEN
 70 S2 := S2 ||'零';
 71 END IF;--不到个亿位,补中间零 eg 10101
 72 END IF;
 73 END IF;
 74 END IF;
 75 END LOOP;
 76 ZERO :=0;
 77 POS :=0;
 78 --整理亿位之后的数据
 79 S1 := SUBSTR(S,9);
 80 FOR I IN 1..8 LOOP
 81 IF I =1
 82 AND TO_NUMBER(SUBSTR(S1, I,1))=0
 83 AND S2 IS NOT NULL THEN
 84 S2 := S2 ||'零';
 85 END IF;
 86 IF I >= POS THEN
 87 ---else skip 0
 88 L := TO_NUMBER(SUBSTR(S1, I,1));
 89 IF L >0 THEN
 90 --add fs1 and fs2 char
 91 S2 := S2 || SUBSTR(FS1, L +1,1)|| SUBSTR(FS2, I,1);
 92 ZERO :=1;--有整数
 93 ELSE
 94 IF I =4 THEN
 95 S2 := S2 ||'万';
 96 END IF;---插入万字，因为从此出分隔一次循环
 97 POS := I +1;
 98 FOR J IN I +1..9 LOOP
 99 IF J =4
100 AND SUBSTR(S1, J,1)='0'
101 AND S2 IS NOT NULL
102 AND ZERO =1 THEN
103 S2 := S2 ||'万';
104 END IF;
105 IF SUBSTR(S1, J,1)='0' THEN
106 POS := POS +1;
107 END IF;
108 EXIT WHEN SUBSTR(S1, J,1)!='0';
109 END LOOP;
110 IF POS =9
111 AND v_money >=1 THEN
112 S2 := S2 ||'元';--无个位,直接加元
113 ELSE
114 IF ZERO =1 THEN
115 S2 := S2 ||'零';
116 END IF;--不到个位,补中间零 eg 10101.00
117 END IF;
118 END IF;
119 END IF;
120 END LOOP;
121 IF SUBSTR(S1,10,4)='0000' THEN
122 S2 := S2 ||'整';
123 ELSE
124 L := TO_NUMBER(SUBSTR(S1,10,1));
125 IF L >0 THEN
126 S2 := S2 || SUBSTR(FS1, L *1+1,1)||'角';
127 ELSE
128 IF v_money >0.1 THEN
129 S2 := S2 ||'零';
130 END IF;--去掉0.01的前导零
131 END IF;
132 L := TO_NUMBER(SUBSTR(S1,11,1));
133 IF L >0 THEN
134 S2 := S2 || SUBSTR(FS1, L *1+1,1)||'分';
135 END IF;
136 END IF;
137 RETURN S2;
138 END num2rmb;

 

posted @ 2015-04-14 19:04  mellowsmile  阅读(635)  评论(0)    收藏  举报