10行搞定人民币大写,完全符合会计规范.

10行搞定人民币大写,完全符合会计规范.
PROCEDURE chandx
PARAMETERS mmje &&输入变量：数字型，小于9万亿,大于-9万亿
PRIVATE dx,aa,i
dx=IIF(mmje<0,\'负\',\'\')
aa=ROUND(ABS(mmje)*100,0)
FOR i=LEN(ALLTRIM(STR(aa,15)))-1 to 0 STEP -1
dx=dx+SUBS(\'零壹贰叁肆伍陆柒捌玖\',INT(ROUND(aa/10^i,10))*2+1,2)+SUBS(\'分角元拾佰仟万拾佰仟亿拾佰仟万\',i*2+1,2)
aa=MOD(aa,10^i)
endf
dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,\'零仟\',\'零\'),\'零佰\',\'零\'),\'零拾\',\'零\'),\'零角\',\'零\'),\'零分\',\'整\')
dx=STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(dx,\'零零\',\'零\'),\'零零\',\'零\'),\'零亿\',\'亿\'),\'零万\',\'万\'),\'零元\',\'元\')
RETURN IIF(dx=\'整\',\'零元整\',STRTRAN(STRTRAN(dx,\'亿万\',\'亿\'),\'零整\',\'整\'))

注:对于200008000.07 贰亿捌仟元零柒分 和 贰亿零捌仟元零柒分 都是符合会计规范的