原文参考 逛到一道面试题,数字转大写中文的,搜索学习并记录于此. //自动转换数字金额为大小写中文字符,返回大小写中文字符串,最大处理到999兆 function changeMoneyToChinese( money ) { var cnNums = new Array("零","壹","贰","叁","肆","伍","陆","柒","…
function TForm1.changeRmb(const strRmb:string):string; var txt,strhighlevel:string; i,n,m,ilen,ipos:Integer; //n记录整数部分长度,m记录分数部分长度 strarray,strlevel:array of string; p:pchar; ispoint:boolean;//判断是否有小数点 begin ispoint:=false; result:=''; ipos:=0; m:=0;…