银行金额小写转大写functionORACLE

create or replace
Function Money2Chinese(moneyValues In Number) Return Varchar2 Is
 --moneyValue := Round(to_number(moneyValue))*100
 Str1 NCHAR(10) := '零壹贰叁肆伍陆柒捌玖';
 Str2 NCHAR(15) := '萬仟佰拾亿仟佰拾萬仟佰拾元角分';
 Str3 Number(10);
 moneyValue Varchar2(100) := trim(to_char(moneyValues)*100); --保留小数并去掉小数点后的值
 chineseValue Varchar2(600);
 lens Number := trim(length(moneyValue));
 nZero Number := 0;
 cha1 NCHAR(10);
 cha2 NCHAR(10);
Begin 
 --判断为空时
 If lens Is Null Then 
 Return Null;
 End If;
 --判断位数超长时 超过15位不进行处理 
 If lens >15 Then
 Return '超出银行支票取值范围';
 End If;
 If moneyValue = 0 Then
 Return '零元整';
 End If;
 --以上条件测试之后可以运行
 
 
 --下面条件选项待测
 Str2 := substr(Str2,(length(Str2)-lens)+1, lens);
 For i In 1..lens Loop
 Str3 := substr(trim(moneyValue),i,1);
 --循环遍历数值
 If i <> lens-2 and i <> lens-6 and i <> lens-10 and i <>lens-14 --不是万亿，亿，万，元位等关键位
 Then
 IF Str3=0 Then
 cha1 := '';
 cha2 := '';
 nZero := nZero +1;
 --第一个判断
 else
 IF Str3 <> 0 and nZero <> 0 Then
 cha1 := '零'||substr(Str1 , Str3+1 , 1);
 cha2 := substr(Str2 , i ,1 );
 nZero := 0;
 --第二个判断
 Else
 cha1 := substr(Str1 , (Str3+1) ,1);
 cha2 := substr(Str2 , i ,1);
 end if;
 End If;
 --是万亿，亿，万，元位等关键位
 Else
 IF Str3 <> 0 and nZero <> 0 Then
 cha1 := '零'||substr(Str1 , Str3+1 ,1);
 cha2 := substr(Str2 , i , 1);
 nZero := 0 ;
 Else
 If Str3 <> 0 and nZero = 0 Then
 cha1 := substr(Str1 , Str3+1 ,1);
 cha2 := substr(Str2 , i , 1);
 nZero := 0 ;
 Else
 If Str3 = 0 and nZero >= 3 Then
 cha1 := '';
 cha2 := '';
 nZero := nZero + 1;
 Else
 cha1 := '';
 cha2 := substr(Str2 , i ,1);
 nZero := nZero + 1;
 End If;
 End If;
 If i=(lens-10) or i = (lens - 2) Then
 cha2 := substr(Str2 , i ,1);
 End If;
 End If; 
 End IF;
 chineseValue := chineseValue||trim(cha1)||trim(cha2);
 End Loop;
 --结束循环
 If Str3 = 0 Then 
 chineseValue := chineseValue||'整';
 End If;
 Return chineseValue;
End Money2Chinese;