N = 1 FOR I = LEN(lcIntNumber) TO 1 STEP -1 FOR J = 1 TO 10 IF VAL(SUBST(lcIntNumber,I,1)) = J-1 ChinaMoney = ChinaNo(J)+ChinaNum(N)+ChinaMoney N = N+1 EXIT ENDIF ENDFOR ENDFOR IF !EMPTY(lcDicNumber) FOR Z = 1 TO 2 FOR P = 1 TO 10 IF VAL(SUBST(lcDicNumber,Z,1)) = P-1 ChinaMoney = ChinaMoney+ChinaNo(P)+Cdw(Z) EXIT ENDIF ENDFOR ENDFOR ELSE ChinaMoney=ChinaMoney+"整" ENDIF RETURN ChinaMoney
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
