VFP_身份证验证程序 FunctionMyIdentityCardVerify&&校验身份证号是否合法Lparameterslstr&&参数:lstr传入的号码Privatelstr,relyn,tsfz,m1,m2,m3,m4,m,I,r,c,ai,wirelyn=.F.&&返回值tsfz=Alltrim(lstr)*