[讨论]18位身份证号码的验证算法

hzg7818

真是！简洁的公式胜过繁杂的代码啊！最简洁的代码恐怕也比这个公式烦琐，Excel的使用真是各有所长！

鱼之乐

看到此贴，就想到了我前段时间的惨痛经历，虽然与此贴的技术无太多关系 我原来的15位身份证未三位是001，因期限已满换新的18位身份证后除加了年 19二位外，原未三位001变成了0053。当时领新证也没在意。但前段时间在工行就遇到麻烦，当我拿着新身份证去银行更改以前的身份证信息时（－－这个很有必要，假如哪天我的卡或者存折丢失了，是要凭身份证去办理挂失手续的，如果不更改为新的身份证，到时可就麻烦了），银行前台小姐竟认为我的新身份证是假的，原因就是原末三位001变成了0053，我解释说可能大多数是换新证末三位是不变，可公安部并没明文规定说是一定不能变吧。但任我如何解释，也说服不了她。非让我到换证派出所办证明。她也不想象，派出所象士匪窝，我想让他给我开证明他就开啊！ 没办法，我只好把卡与存折中的钱全部取出，又重新立户存入，为了此事，整整花费了近二小时。 我想问一问，有没有知道，换发新身份证后三位数一定不能更改吗？要是这样的话，我的身份证公安机关又为什么改了呢？

chenjun

15位升18位的原则是取15位的前6位，跟2位世纪代号（如18、19、20），再跟15位余下的9位，第18位按我的公式计算出来（有可能是字母X）。

chenfishyu

好，棒极了，你们太牛了！

winak

一般来讲，15位身份证号升级为18位时只是加入了年份“19”，其余15位数字对应不变，最后一位校验码根据算法计算得出，如果检验结果是10则以 X 表示。 不过建议大家如果身份证要升级，一定要到银行先备案，我的住房公积金就因为身份证号前后不一致，4年了还不能取出，好几万啊，心痛!!!

chenjun

以下是引用chenjun在2004-2-29 23:32:00的发言： 哈哈！做一个用数组公式计算的例子。

公式还能缩短为 {{=C4&MID("10X98765432",1+MOD(SUM(MID(C4,ROW($1:$17),1)*2^(18-ROW($1:$17))),11),1)}}

[此贴子已经被作者于2004-6-20 21:56:17编辑过]

karibu

0fEi63cM.rar (61.86 KB, 下载次数: 409)

2004-4-5 08:50 上传

点击文件名下载附件
[讨论]18位身份证号码的验证算法

刚学VBA 不久，编制的一些身份证函数。具有验证身份证，15升18位，查找设立身份证的省份、城市、区县，认定男女，生日等。 请各位高手指教。

secowu

Public Function sfzjy(sid, xb) ' As Currency '1、身份证不满15位，2、性别与身份证不符，3、出生月份出错(不在1-12) '4、出生日期出错(不在1-31范围内)，5、18位校验位出错，6、18位身份证年份出借 On Error Resume Next Dim s1, s2, jym, x If xb = 1 Then x = 1 If xb = "男" Then x = 1 If xb = 2 Then x = 0 If xb = "女" Then x = 0 s1 = " 7 910 5 8 4 2 1 6 3 7 910 5 8 4 2" s2 = "10x98765432" If Len(sid) <> 15 And Len(sid) <> 18 Then sfzjy = "身份证位数错误" '测试15位身份证的信息 ElseIf Len(sid) = 15 And Val(Mid(sid, 7, 2)) < 10 Then sfzjy = "年龄好大，请多多保重!" ElseIf Len(sid) = 15 And Val(Mid(sid, 9, 2)) > 12 Then sfzjy = "出生月份错误!" ElseIf Len(sid) = 15 And Val(Mid(sid, 11, 2)) > 31 Then sfzjy = "出生日期错误!" ElseIf Len(sid) = 15 And Mid(sid, 15, 1) Mod 2 <> x Then sfzjy = "性别错误!" ElseIf Len(sid) = 15 Then newid = Left(sid, 6) + "19" + Right(sid, 9) jym = 0 For i = 1 To 17 jym = jym + Val(Mid(s1, i * 2 - 1, 2)) * Val(Mid(newid, i, 1)) Next i sfzjy = newid + Mid(s2, jym Mod 11 + 1, 1) '测试18位身份证的信息 ElseIf Len(sid) = 18 And Val(Mid(sid, 7, 2)) <> 19 Then sfzjy = "出生年错误!" ElseIf Len(sid) = 18 And Val(Mid(sid, 9, 2)) < 10 Then sfzjy = "年龄好大，请多多保重!" ElseIf Len(sid) = 18 And Val(Mid(sid, 11, 2)) > 12 Then sfzjy = "出生月份错误!" ElseIf Len(sid) = 18 And Val(Mid(sid, 13, 2)) > 31 Then sfzjy = "出生日期错误!" ElseIf Len(sid) = 18 And Mid(sid, 17, 1) Mod 2 <> x Then sfzjy = "性别错误!" Else newid = Left(sid, 17) jym = 0 For i = 1 To 17 jym = jym + Val(Mid(s1, i * 2 - 1, 2)) * Val(Mid(newid, i, 1)) Next i If Mid(s2, jym Mod 11 + 1, 1) <> Mid(sid, 18, 1) Then sfzjy = "识别码错，应为：" & Mid(s2, jym Mod 11 + 1, 1) Else sfzjy = sid End If End If End Function

humihong

　 15位身份证对18**年出生的人的第14位好象是规定为9，可以判别后确定年份是加19还是18 [glow=255,red,2][/[move]我是根据二位高人公式做了简单的修改。[/move]glow] 2WNacto0.rar (48.96 KB, 下载次数: 332)

2005-11-27 20:13 上传

点击文件名下载附件

[此贴子已经被作者于2005-11-27 20:13:58编辑过]

abzzl

http://club.excelhome.net/viewthread.php?tid=151935&replyID=&skin=0

看看我的算法,你会知道数学的作用.