开发工具:
文件大小: 2kb
下载次数: 0
上传时间: 2011-03-22
详细说明： 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 Len(tsfz)=18,.T.,.F.) If Len(tsfz)=15 && 15位的号码 For I=1 To 15 &&检查每一位是否为数字 m=Asc(Substr(tsfz,I,1)) If m<48 Or m>57 &&数字 m2=.F. &&若有一位不是就不再查 Exit Endif Endfor m="19" +Substr(tsfz, 7,2) &&早期的号都是上个世纪的 m=m+"."+Substr(tsfz, 9,2) m=m+"."+Substr(tsfz,11,2) m=Ctod(m) If Isnull(m) Or Isblank(m) m3=.F. &&生日不正确 Endif Endif If Len(tsfz)=18 && 18位的号码 For I=1 To 17 m=Asc(Substr(tsfz,I,1)) If m<48 Or m>57 m2=.F. Exit Endif Endfor m=Substr(tsfz,7,4) m=m+"."+Substr(tsfz,11,2) m=m+"."+Substr(tsfz,13,2) m=Ctod(m) If Isnull(m) Or Isblank(m) m3=.F. Endif r=0 &&计算校验位 For I=18 To 2 Step -1 ai=Val(Substr(tsfz,19-i,1)) wi=Mod(2^(i-1),11) r=r+ai*wi Next r=Mod(r,11) Do Case Case r=0 c="1" Case r=1 c="0" Case r=2 c="X" Otherwise c=Alltrim(Str(12-r)) Endcase If Upper(Substr(tsfz,18,1))<>c m4=.F. &&校验位与原码最末位不同 Endif Endif *四个条件全成立，则返回.t. relyn=Iif(m1 And m2 And m3 And m4,.T.,.F.) Return relyn Endfunc ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
