ZLN 是什么意思啊

ZLN 是什么意思啊

SET TALK OFF**计算整个表总共分别需要多少张不同面值的人民币。STORE 0 TO s100,s50,s10,s5,s2,s1,s05,s02,s01,s005,s002,s001USE Z1.DBFSELECT Z1GO topDO WHILE NOT EOF()zn=ALLTRIm(STR(实发工资,13,2))ln=LEN(zn) && 长度zln=ln-3 &&整数部分长度IF zln>2 &&百位以上 s100=s100+VAL(LEFt(zn,ln-5)) &&百元ENDIFIF zln>=2 &&百位以上 IF VAL(LEFt(right(zn,5),1))>=5 s50=s50+1 && 50元 ENDIF IF VAL(LEFt(right(zn,5),1))>5 &&10元 s10=s10+VAL(LEFt(right(zn,5),1))-5 ELSE s10=s10+ VAL(LEFt(right(zn,5),1)) ENDIFENDIF IF zln>=1 &&个位 IF VAL(LEFt(right(zn,4),1))>=5 s5=s5+1 && 5元 ENDIF IF VAL(LEFt(right(zn,4),1))>5 && s2=s2+IIF((VAL(LEFt(right(zn,4),1))-5)=4,2,IIF((VAL(LEFt(right(zn,4),1))-5)>=2,1,0)) && 2元 s1=s1+IIF((VAL(LEFt(right(zn,4),1))-5)=3,1,IIF((VAL(LEFt(right(zn,4),1))-5)=1,1,0)) && 1元 ELSE s2=s2+IIF((VAL(LEFt(right(zn,4),1)))=4,2,IIF((VAL(LEFt(right(zn,4),1)))>=2,1,0)) && 2元 s1=s1+IIF((VAL(LEFt(right(zn,4),1)))=3,1,IIF((VAL(LEFt(right(zn,4),1)))=1,1,0)) && 1元 ENDIFENDIF xx1=VAL(LEFt(RIGHt(zn,2),1)) IF xx1=0 &&小数点后一位 s05,s02,s01ELSE IF xx1>=5 s05=s05+1 ENDIF IF xx1>5 s02=s02+IIF((xx1-5)=4,2,IIF((xx1-5)>=2,1,0)) s01=s01+IIF((xx1-5)=3,1,IIF((xx1-5)=1,1,0)) ELSE s02=s02+IIF(xx1=4,2,IIF(xx1>=2,1,0)) s01=s01+IIF(xx1=3,1,IIF(xx1=1,1,0)) ENDIFENDIF xx2=VAL(RIGHt(zn,1)) IF xx2=0eLSE IF xx2>=5 s005=s005+1 ENDIF IF xx2>5 s002=s002+IIF((xx2-5)=4,2,IIF((xx2-5)>=2,1,0)) s001=s001+IIF((xx2-5)=3,1,IIF((xx2-5)=1,1,0)) ELSE s002=s002+IIF(xx2=4,2,IIF(xx2>=2,1,0)) s001=s001+IIF(xx2=3,1,IIF(xx2=