Office中国论坛/Access中国论坛

标题: 身份证15位转化为18位! [打印本页]

作者: stanleypan    时间: 2004-6-26 00:30
标题: 身份证15位转化为18位!
根据〖中华人民共和国国家标准 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。

[此贴子已经被作者于2004-6-25 16:32:56编辑过]
作者: make    时间: 2004-6-26 01:16
我的还是15位,好像要换智能身份证了
作者: tmtony    时间: 2004-6-26 08:41
不错不错,stanleypan是不是还有不少上等存货:)
作者: stanleypan    时间: 2004-6-26 16:08
一共大概有70-80个吧.
作者: make    时间: 2004-6-26 22:28
都传上来吧,让我们学习学习,等不及了!!
作者: fj_hhb    时间: 2004-7-7 01:31
一种采用数组公式的转换方法:

{=LEFT(A1,6)&"19"&RIGHT(A1,9)&CHOOSE(MOD(SUM(MID(LEFT(A1,6)&"19"&RIGHT(A1,9),ROW($117),1)*MOD(2^(18-ROW($117)),11)),11)+1,1,0,x,9,8,7,6,5,4,3,2)}
作者: ui    时间: 2004-7-7 16:58
哇,好复杂,厉害!!
作者: jiahong_fish    时间: 2005-12-13 08:56
COOL
作者: zjcxqiu    时间: 2008-12-23 19:04
标题: ffff
fffff
作者: awin666    时间: 2009-1-27 19:14
好东东
作者: a281699153    时间: 2009-3-20 17:35
睇一下,
作者: wjsfeng    时间: 2009-3-20 19:24
学习啊,知识就是力量
作者: OKK    时间: 2009-4-17 22:09
不错不错
作者: yardview    时间: 2009-7-24 23:25
换智能身份证了
作者: wpstcl    时间: 2010-1-22 13:54
实用
作者: xinglj    时间: 2010-1-24 23:59
已经用VBA实现了
作者: sp008    时间: 2010-1-25 08:06
暂时看不懂
作者: snddzxb    时间: 2010-1-25 08:10
下载学习中!
作者: ggyyzyf    时间: 2010-2-2 20:10
我的还是15位,好像要换智能身份证了
作者: yiki007    时间: 2010-2-9 13:51
lz好东西很多啊,支持支持
作者: qqssh111    时间: 2010-2-10 23:06
好东西,顶一个,谢谢楼主!
作者: srx7270    时间: 2010-2-22 16:39
先学习学习
作者: 众叛亲离    时间: 2010-3-16 17:33
看一下,正须要这个
作者: lookmeupacc    时间: 2010-4-1 19:12
谢谢分享呀,真需要呢
作者: w_daniel    时间: 2010-8-16 15:16
学习一下,蛮有用的
作者: wfx_291    时间: 2010-8-17 12:11
回帖后跳转到最后一页
作者: wangjian87    时间: 2011-7-9 22:01
xie  xie   le
作者: littlekey    时间: 2011-10-31 14:09
学习一下
作者: 刘青梅    时间: 2016-12-4 20:26
让我们学习学习,等不及了!!
作者: 刘青梅    时间: 2016-12-4 20:27
好像要换智能身份证了
作者: 小福    时间: 2018-3-14 19:20
11111111




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3