一区二区三区三上|欧美在线视频五区|国产午夜无码在线观看视频|亚洲国产裸体网站|无码成年人影视|亚洲AV亚洲AV|成人开心激情五月|欧美性爱内射视频|超碰人人干人人上|一区二区无码三区亚洲人区久久精品

您好,歡迎來(lái)電子發(fā)燒友網(wǎng)! ,新用戶?[免費(fèi)注冊(cè)]

您的位置:電子發(fā)燒友網(wǎng)>源碼下載>匯編編程>

通用發(fā)票打印管理系統(tǒng)1.0源代碼

大?。?/span>1702 人氣: 2010-02-26 需要積分:0
{$username}的空間

用戶級(jí)別:注冊(cè)會(huì)員

貢獻(xiàn)文章:

貢獻(xiàn)資料:

通用發(fā)票打印管理系統(tǒng)1.0.

部分代碼如下:PARAMETERS nAmount,IsDW
nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),".","")?? &&把小數(shù)點(diǎn)去掉
cHZDX="零壹貳叁肆伍陸柒捌玖"
cDW="分角元拾佰仟萬(wàn)拾佰仟億拾佰仟萬(wàn)拾佰仟億"
cRMBDX=""
nCd=LEN(nDZS)
FOR i=1 TO LEN(nDZS)
? cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,i,1))+1),1)? && 數(shù)字轉(zhuǎn)換???
? 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%

不好我反對(duì)

(0) 0%

      發(fā)表評(píng)論

      用戶評(píng)論
      評(píng)價(jià):好評(píng)中評(píng)差評(píng)

      發(fā)表評(píng)論,獲取積分! 請(qǐng)遵守相關(guān)規(guī)定!

      ?