ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 40471|回复: 48

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-2-20 16:45 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:其他编程应用
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性,偶数分给女性。校验码是根据前面十七位数字码,按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。 15位的身份证编码首先把出生年扩展为4位,简单的就是增加一个19,但是这对于1900年出生的人不使用(这样的寿星不多了) 某男性公民身份号码本体码为34052419800101001,首先按照公式⑴计算: ∑(ai×Wi)(mod 11)……………………………………(1) 公式(1)中:
i----表示号码字符从由至左包括校验码在内的位置序号;
ai----表示第i位置上的号码字符值;
Wi----示第i位置上的加权因子,其数值依据公式Wi=2(n-1)(mod 11)计算得出。
i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1 Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1 ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1 根据公式(1)进行计算: ∑(ai×Wi) =(21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189 189 ÷ 11 = 17 + 2/11 ∑(ai×Wi)(mod 11) = 2 然后根据计算的结果,从下面的表中查出相应的校验码,其中X表示计算结果为10: ∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2
根据上表,查出计算结果为2的校验码为所以该人员的公民身份号码应该为 34052419800101001X。
a[0]*7+a[1]*9+a[2]*10+a[3]*5+a[4]*8+a[5]*4+a[6]*2+a[7]*1+a[8]*6+a[9]*3
+a[10]*7+a[11]*9+a[12]*10+a[13]*5+a[14]*8+a[15]*4+a[16]*2
%11
when 0 then "1" when 1 then "0" when 2 then "X" when 3 then "9"
when 4 then "8" when 5 then "7" when 6 then "6" when 7 then "5"
when 8 then "4" when 9 then "3" when 10 then "2"
*/ /* 以上为算法详细说明,下面是SQL的自定义函数,返回值为18位的校验码 */
Create function getCheckCode(@SFZH char(18))
Returns char(1)
As
Begin
declare @r char(1)
declare @i int
if len(@SFZH) <> 18
set @r = "?"
else
set @i = cast(substring(@SFZH,1,1) as int) * 7
+cast(substring(@SFZH,2,1) as int) * 9
+cast(substring(@SFZH,3,1) as int) * 10
+cast(substring(@SFZH,4,1) as int) * 5
+cast(substring(@SFZH,5,1) as int) * 8
+cast(substring(@SFZH,6,1) as int) * 4
+cast(substring(@SFZH,7,1) as int) * 2
+cast(substring(@SFZH,8,1) as int) * 1
+cast(substring(@SFZH,9,1) as int) * 6
+cast(substring(@SFZH,10,1) as int) * 3
+cast(substring(@SFZH,11,1) as int) * 7
+cast(substring(@SFZH,12,1) as int) * 9
+cast(substring(@SFZH,13,1) as int) * 10
+cast(substring(@SFZH,14,1) as int) * 5
+cast(substring(@SFZH,15,1) as int) * 8
+cast(substring(@SFZH,16,1) as int) * 4
+cast(substring(@SFZH,17,1) as int) * 2
set @i = @i - @i/11 * 11
set @r = (case @i
when 0 then "1" when 1 then "0" when 2 then "X" when 3 then "9"
when 4 then "8" when 5 then "7" when 6 then "6" when 7 then "5"
when 8 then "4" when 9 then "3" when 10 then "2" else "/" end)
Return(@r)
End
/* Usage:
select dbo.getcheckcode("身份证号")
*/

TA的精华主题

TA的得分主题

发表于 2004-2-20 17:04 | 显示全部楼层
我用EXCEL做过一个但是不知道放在哪里了,当时单位要18位身份证号,大家懒得去派出所查

TA的精华主题

TA的得分主题

发表于 2004-2-29 23:32 | 显示全部楼层
哈哈!做一个用数组公式计算的例子。 Ni0fHm46.zip (2.17 KB, 下载次数: 2671)

TA的精华主题

TA的得分主题

发表于 2004-3-1 09:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-3-1 14:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-3-2 06:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-3-3 11:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

身份证号15位升18位

大师的作品,我改发一点。 Dd0ioSjV.rar (2.35 KB, 下载次数: 822)
[此贴子已经被作者于2004-3-3 14:59:06编辑过]

PJJAwjuk.rar

4.62 KB, 下载次数: 608

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

TA的精华主题

TA的得分主题

发表于 2004-3-3 20:59 | 显示全部楼层
15位身份证对18**年出生的人的第14位好象是规定为9,可以判别后确定年份是加19还是18

TA的精华主题

TA的得分主题

发表于 2004-3-4 23:34 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有没有变好的程序

TA的精华主题

TA的得分主题

发表于 2004-3-7 20:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
公式写得这么清楚了,按思路编程序不就很简单了。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-8 23:26 , Processed in 0.049422 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表