将人民币中的阿拉伯数字转换为大写
/**-----------人民币 大写转换 * * @param num ----要转化的数字 * @return */public static String makeUpperCaseSum(String numStr) { String isNeg = "";//正或者负 double num = Double.parseDouble(numStr); if (num < 0) { num *= -1; isNeg = "负"; numStr = numStr.substring(1); } final String[] upper_number = { "零","壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖" }; final String[] number_dw = { "", "拾", "佰", "仟", "万", "拾", "佰", "仟", "亿", "拾", "佰", "仟", "万" }; String operate = numStr; String upper_str = ""; String upper_str_pre = ""; String upper_str_later = ""; String vsDx; int i, j, point_pos, int_len; if (num < 0.01) { return "零圆整"; }
upper_str_pre = "";
point_pos = operate.indexOf("."); if (point_pos == -1) { int_len = operate.length(); } else { int_len = point_pos; } if (int_len > number_dw.length) { return "too long ！！！"; }
if (num > 0) { for (i = 0; i < operate.length(); i++) { j = int_len - i; if(j>0){//整数部分 int k = Integer.parseInt(operate.substring(i, i + 1)); if(k==0){//数字为0时 if(j==5||j==9)//单位为亿或者万时 upper_str_pre += upper_number[k] + number_dw[j-1]; else upper_str_pre += upper_number[k]; } else upper_str_pre += upper_number[k] + number_dw[j-1]; }else if(j<0){//小数部分 int k = Integer.parseInt(operate.substring(i, i + 1)); upper_str_later += upper_number[k]; if(j==-1) upper_str_later += "角"; else upper_str_later += "分"; } } //end for } //end if upper_str_pre += "圆"; while(upper_str_pre.indexOf("零零")!=-1){ upper_str_pre = upper_str_pre.replaceAll("零零","零"); } upper_str_pre = upper_str_pre.replaceAll("零万","万"); upper_str_pre = upper_str_pre.replaceAll("零亿","亿"); upper_str_pre = upper_str_pre.replaceAll("亿万","亿零"); upper_str_pre = upper_str_pre.replaceAll("零零","零"); upper_str_pre = upper_str_pre.replaceAll("零圆","圆"); if("圆".equals(upper_str_pre)) upper_str_pre = ""; upper_str = isNeg+upper_str_pre + upper_str_later; upper_str = upper_str.replaceAll("零角零分","整"); if(point_pos == -1) upper_str += "整"; return upper_str;}
sql function实现：
create or replace function changeToCap(number_string varchar2,pos number) return varchar2 is Result varchar2(100); i number;begin i:=1; if pos<=length(number_string) then if substr(number_string,length(number_string)-pos+1,1)='0' then Result:='零'; elsif substr(number_string,length(number_string)-pos+1,1)='1' then Result:='壹'; elsif substr(number_string,length(number_string)-pos+1,1)='2' then Result:='贰'; elsif substr(number_string,length(number_string)-pos+1,1)='3' then Result:='叁'; elsif substr(number_string,length(number_string)-pos+1,1)='4' then Result:='肆'; elsif substr(number_string,length(number_string)-pos+1,1)='5' then Result:='伍'; elsif substr(number_string,length(number_string)-pos+1,1)='6' then Result:='陆'; elsif substr(number_string,length(number_string)-pos+1,1)='7' then Result:='柒'; elsif substr(number_string,length(number_string)-pos+1,1)='8' then Result:='捌'; elsif substr(number_string,length(number_string)-pos+1,1)='9' then Result:='玖'; end if; else Result:=''; end if; return(Result);end changeToCap;
应用function：
select ttc.tujian_total_cost,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),6) as shiwan,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),5) as wan,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),4) as qian,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),3) as bai,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),2) as shi,changetocap(substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1),1) as ge,'￥'||substr(ttc.tujian_total_cost,0,instr(ttc.tujian_total_cost,'.')-1) as lowercasefrom T_TUJIAN_CHARGE ttc where ttc.modify_flag<>'D' and ttc.charge_id='100000023'
//中文大写金额转换函数，包括币制单位
CREATE OR REPLACE Function changeUppMoney(numMoney in Number) RETURN VARCHAR2 IS strMoney VARCHAR2(60); strSign varchar2(4); numValue number(22); strNum Varchar2(2); strBit Varchar2(2); numBit number(2); numMod Number(1); strUppNum VARCHAR2(20):='零壹贰叁肆伍陆柒捌玖'; strUppUnit VARCHAR2(34):='分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰';BEGIN if numMoney<0 then strSign:='[负]'; else strSign:=''; end if; numValue:=abs(numMoney)*100; strMoney:=''; numBit:=0; LOOP numMod:=Mod(numValue,10); strNum:=substr(strUppNum,numMod+1,1); strBit:=substr(strUppUnit,numBit+1,1); strMoney:=strNum||strBit||strMoney; numValue:=FLOOR(numValue/10); numBit:=numBit+1; exit when numValue<1 or numBit>16; END LOOP; strMoney:=replace(strMoney,'零角','零'); strMoney:=replace(strMoney,'零仟','零'); strMoney:=replace(strMoney,'零佰','零'); strMoney:=replace(strMoney,'零拾','零'); strMoney:=replace(strMoney,'零零','零'); strMoney:=replace(strMoney,'零零','零'); strMoney:=replace(strMoney,'零分','整'); strMoney:=replace(strMoney,'零圆','圆'); strMoney:=replace(strMoney,'零万','万'); strMoney:=replace(strMoney,'零亿','亿'); strMoney:=replace(strMoney,'亿万','亿'); strMoney:=strSign||strMoney; RETURN(strMoney);END;
//中文大写数字转换函数，不包括币制单位，可指定空格填充，用于单据套打等场合：
CREATE OR REPLACE Function changeUppNumber(numMoney in Number,numSpace in Number) RETURN VARCHAR2 IS strMoney VARCHAR2(200); strSign varchar2(4); numValue number(22); strNum Varchar2(20); numLen number(2); numBit number(2); numMod Number(1); strUppNum VARCHAR2(20):='零壹贰叁肆伍陆柒捌玖';BEGIN if numSpace>10 then numLen:=12; else numLen:=numSpace+2; end if; if numMoney<0 then strSign:='[负]'; else strSign:=''; end if; numValue:=abs(numMoney)*100; strMoney:=''; numBit:=0; LOOP numMod:=Mod(numValue,10); strNum:=lpad(substr(strUppNum,numMod+1,1),numLen); strMoney:=strNum||strMoney; numValue:=FLOOR(numValue/10); numBit:=numBit+1; exit when numValue<1 or numBit>16; END LOOP; strMoney:=strSign||strMoney; RETURN(strMoney);END;
