人民币大小写转换算法.doc

文档介绍：;;(AnsiStringnum)\{(()-2,1);//(('0',8-()),1);AnsiStringretval="",CNum="零壹贰叁肆伍陆柒捌玖",CUnit="拾万仟佰拾元角分";for(intp,i=1;i<9;i++){p=(i,1).ToInt();retval+=(p*2+1,2)+(i*2-1,2);}returnretval;;;(AnsiStringnum){(()-2,1);//(('0',8-()),1);AnsiStringretval="",CNum="零壹贰叁肆伍陆柒捌玖",CUnit="拾万仟佰拾元角分";for(intp,i=1;i<9;i++){p=(i,1).ToInt();retval+=(p*2+1,2)+(i*2-1,2);}returnretval;例3金额大小写转换FUNCTIONUPPERRMBPARAMETERRMBPRIVATEUNIT,NUMBER,I,RETVARUNIT='分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟'NUMBER='零壹贰叁肆伍陆柒捌玖'RMB=INT(RMB*100+)RETVAR=''DOWHILERMB>0RETVAR=SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVARRMB=INT(RMB/10)UNIT=SUBSTR(UNIT,3)ENDDORETVAR=STRTRAN(RETVAR,'零仟','零')RETVAR=STRTRAN(RETVAR,'零佰','零')RETVAR=STRTRAN(RETVAR,'零拾','零')RETVAR=STRTRAN(RETVAR,'零角','零')DOWHILE'零零'$RETVARRETVAR=STRTRAN(RETVAR,'零零','零')ENDDORETVAR=STRTRAN(RETVAR,'零亿','亿')RETVAR=STRTRAN(RETVAR,'零万','万')RETVAR=STRTRAN(RETVAR,'亿万','亿零')RETVAR=STRTRAN(RETVAR,'零零','零')RETVAR=STRTRAN(RETVAR,'零圆','圆')RETVAR=STRTRAN(RETVAR,'零分','整')RETVAR=IIF(LEN(RETVAR)=0,'零圆整',RETVAR)RETURNRETVAR例4//改编******@functionNumToChar(n:Real):wideString;//可以到万亿,um:WideString=‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分‘;cCha:array[0..1,0..11]ofstring=((‘零仟‘,‘零佰‘,‘零拾‘,‘零零零‘,‘零零‘,‘零亿‘,‘零万‘,‘零元‘,‘亿万‘,‘零角‘,‘零分‘,‘零整‘),(‘零‘,‘零‘,‘零‘,‘零‘,‘零‘,‘亿‘,‘万‘,‘元‘,‘亿‘,‘零‘,‘整‘,‘整‘));vari:Integer;sNum:WideString;beginresult:=‘‘;sNum:=FormatFloat(‘0‘,n*100);fori:=1toLength(sNum)doresult:=um[ord(sNum[i])-47]+cNum[26-Length(sNum)+i];fori:=0to11do//去掉多余的零result:=StringReplace(ha[0,i],cCha[1,i],[rfReplaceAll]);end;;;.;las