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
代码如下:‘去掉字符串头尾的连续的回车和空格 function trimVBcrlf(str) trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str)) end function ‘去掉字符串开头的连续的回车和空格 function ltrimVBcrlf(str) dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid(str,pos,1)=” ” then pos=pos+1 elseif