通用發票打印管理系統1.0源代碼
大小：1702 人氣： 2010-02-26 需要積分：0
標簽：源代碼(65733)
通用發票打印管理系統1.0.
部分代碼如下:PARAMETERS nAmount,IsDW
nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),".","")?? &&把小數點去掉
cHZDX="零壹貳叁肆伍陸柒捌玖"
cDW="分角元拾佰仟萬拾佰仟億拾佰仟萬拾佰仟億"
cRMBDX=""
nCd=LEN(nDZS)
FOR i=1 TO LEN(nDZS)
? cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,i,1))+1),1)? && 數字轉換???
? IF IsDW=1???? &&如果要單位
??? cDWs=SUBSTRC(cDW,nCd,1)??
? ELSE
??? cDWs=SPACE(0)? &&不要單位的情況下
? ENDIF
??? cRMBDX=cRMBDX+cNumbers+cDWS
??? nCd=nCd-1
ENDFOR
FOR i=LEN(nDZS)+1 TO 6
? cRMBDX=SPACE(2)+cRMBDX
ENDFOR?????
RETURN? cRMBDX
非常好我支持^.^
(7) 100%
不好我反對
(0) 0%