rmbdx.bak

一个很小的VF编制的小程序关于数据库原理的课程设计的应用。

     para rmb 
     nDzs=strt(allt(str(rmb,15,2)),".","") &&把小数点去掉
     hzdx="零壹贰叁肆伍陆柒捌玖"
     nDW="分角元拾佰仟万拾佰仟亿拾佰仟"
     rmbdx=""
     nCd=len(nDzs)
     for i=1 to len(nDzs)
     NumS=substrc(hzdx,int(val(subs(nDzs,i,1))+1),1) && 数字转换
     nDWs=spac(0)  &&----------要单位，如果不要单位可将此句改为：nDWs=spac(2) 
     rmbdx=rmbdx+NumS+nDwS
     nCd=nCd-1
     endfor
     FOR i=1 TO LEN(rmbdx) STEP 2
     IF SUBSTR(rmbdx,1,2)="零"
        rmbdx=SUBSTR(rmbdx,3,LEN(rmbdx)-2)
     ENDIF    
     ENDFOR 
     FOR i=1 TO 12-LEN(rmbdx) STEP 2
       rmbdx="--"+rmbdx
     ENDFOR    
        
     retu rmbdx