FunctionMyIdentityCardVerify&&校验身份证号是否合法Lparameterslstr&&参数:lstr传入的号码Privatelstr,relyn,tsfz,m1,m2,m3,m4,m,I,r,c,ai,wirelyn=.F.&&返回值tsfz=Alltrim(lstr)*分别用m1,m2,m3,m4表示四个条件是否成立Stor.T.Tom1,m2,m3,m4*条件1：只能是15或18位m1=Iif(Len(tsfz)=15OrLen(tsfz)=18,.T.,.F.)If