IF M1=13
G1=10*VAL(SUBSTR(K2,4,1))+9*VAL(SUBSTR(K2,5,1));
+8*VAL(SUBSTR(K2,6,1))+7*VAL(SUBSTR(K2,7,1))+6*VAL(SUBSTR(K2,8,1))+5*VAL(SUBSTR(K2,9,1));
+4*VAL(SUBSTR(K2,10,1))+3*VAL(SUBSTR(K2,11,1))+2*VAL(SUBSTR(K2,12,1))
M2=ALLTRIM(STR(11-MOD(G1,11)))
DO CASE
CASE M2="10"
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+"X")
CASE M2="11"
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+"0")
OTHERWISE
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+ALLTRIM(M2))
ENDCASE
XJXLS1.CELLS(i,1).VALUE=VAL(Z1)
ENDIF
二楼哥哥,
我的Z1是根据上面CASE M2=“10”
算出来的,
怎办?