X2:=CLOSE;XA2:=INTPART(X2/10);XB2:=INTPART(X2)-XA2*10;XC2:=INTPART(X2*10)-XA2*100-XB2*10;XD2:=INTPART(X2*100)-XA2*1000-XB2*100-XC2*10;SGT2:=MOD(XA2+XB2+ZQDMSUM,8);SG2:=IF(SGT2=0,8,SGT2);XGT2:=MOD(XC2+XD2+ZQDMSUM,8);XG2:=IF(XGT2=0,8,XGT2);DY:=MOD(XA2+XB2+XC2+XD2,6);DY1:=IF(DY=0,6,DY);DY2:=MOD(XA2+XB2+XC2+XD2+ZQDMSUM,6);DY3:=IF(DY2=0,6,DY2);数理:(SG2*1000+XG2*100+DY1*10+DY3)/100;