人民币大小写转换法.doc

人民币大小写转换算法 人民币大小写转换算法 1.先把你的金额转换成Chat String类型; 2.把Chat Strin类型的金额变量已小数点为界分成两个部分; 3.分别用两个转换函数对小数点左右部分进行转换 AnsiString ChineseNumber(AnsiString num) \ { num.Delete(num.Length()-2,1);//删除小数点 num.Insert(num.StringOfChar(0,8-num.Length()),1); AnsiString retval=,CNum=零壹贰叁肆伍陆柒捌玖,CUnit=拾万仟佰拾元角分; for(int p,i=1;i9;i++) { p=num.SubString(i,1).ToInt(); retval+=CNum.SubString(p*2+1,2)+CUnit.SubString(i*2-1,2); } return retval; 例2 1.先把你的金额转换成Chat String类型; 2.把Chat Strin类型的金额变量已小数点为界分成两个部分; 3.分别用两个转换函数对小数点左右部分进行转换 AnsiString ChineseNumber(AnsiString num) { num.Delete(num.Length()-2,1);//删除小数点 num.Insert(num.StringOfChar(0,8-num.Length()),1); AnsiString retval=,CNum=零壹贰叁肆伍陆柒捌玖,CUnit=拾万仟佰拾元 角分; for(int p,i=1;i9;i++) { p=num.SubString(i,1).ToInt(); retval+=CNum.SubString(p*2+1,2)+CUnit.SubString(i*2-1,2); } return retval; 例3 金额大小写转换 FUNCTION UPPERRMB PARAMETER RMB PRIVATE UNIT, NUMBER, I, RETVAR UNIT = 分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟 NUMBER = 零壹贰叁肆伍陆柒捌玖 RMB = INT(RMB*100+0.5) RETVAR = DO WHILE RMB0 RETVAR = SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVAR RMB = INT(RMB/10) UNIT = SUBSTR(UNIT,3) ENDDO RETVAR = STRTRAN(RETVAR,零仟,零) RETVAR = STRTRAN(RETVAR,零佰,零) RETVAR = STRTRAN(RETVAR,零拾,零) RETVAR = STRTRAN(RETVAR,零角,零) DO WHILE 零零$RETVAR RETVAR = STRTRAN(RETVAR,零零,零) ENDDO RETVAR = STRTRAN(RETVAR,零亿,亿) RETVAR = STRTRAN(RETVAR,零万,万) RETVAR = STRTRAN(RETVAR,亿万,亿零) RETVAR = STRTRAN(RETVAR,零零,零) RETVAR = STRTRAN(RETVAR,零圆,圆) RETVAR = STRTRAN(RETVAR,零分,整) RETVAR = IIF(LEN(RETVAR)=0,零圆整,RETVAR) RETURN RETVAR 例4 //改编 inRm inrm@263.net function NumToChar( n:Real): wideString; //可以到万亿,并可随便扩大 const cNum:WideString=‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分‘; cCha:array[0..1, 0..11]of string = (( ‘零仟‘,‘零佰‘,‘零拾‘,‘零零零‘,‘零零‘, ‘零亿‘,‘零万‘,‘零元‘,‘亿万‘,‘零角‘,‘零分‘,‘零整‘), ( ‘零‘,‘零‘,‘零‘,‘零‘,‘零‘,‘亿‘,‘万‘,‘元‘,‘亿‘,‘零‘,‘整‘,‘整‘)); var i :Integer; sNum :WideString; begin res