aWhat's new in the new version of lcc-win ---------------------------------------- Dec 3: Added SphericalBesselY + SphericalBesselK + SphericalBesselJ to the special functions package. Updated the documentation. Dec 2: Fixed problems with comparison
Function MyIdentityCardVerify &&校验身份证号是否合法 Lparameters lstr &&参数:lstr 传入的号码 Private lstr,relyn,tsfz,m1,m2,m3,m4,m,I,r,c,ai,wi relyn=.F. &&返回值 tsfz=Alltrim(lstr) *分别用m1,m2,m3,m4表示四个条件是否成立 Stor .T. To m1,m2,m3,m4 *条件1:只能是15或18位 m1=Iif(Len(tsfz)=15 Or