您的位置:首页 > 编程语言 > VB

15位身份证转18位批量转换工具及其算法(VB版)

2012-10-05 20:00 2723 查看


15位身份证转18位批量转换工具及其算法

                       *************************************************

                         ID_Change 身份证自动转换工具  BY:JuNe-Ff

                        **************************************************

********************************************************************************************

********************************************************************************************

---------------------------------------------V1.0.0-----------------------------------------

功能说明:

1、可自动将15位身份证转换为18号身份证,并自动复制到剪帖板中。

---------------------------------------------V1.0.2-----------------------------------------

1、可自动将15位身份证转换为18号身份证,并自动复制到剪帖板中。

2、增加导入EXCEL批量转换功能,excel格式请参考程序目录下模板文件。

3、可自动断定身份证是否为15位,如果不是15位保留原值不进行转换,并在后一列自动标识出来。

----------------------------------------------------------------------------------------------------

算法如下:

身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》中做了明确的规定。

    GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。GB11643-1999《公民身份号码》主要内容如下: 

一、范围 

该标准规定了公民身份号码的编码对象、号码的结构和表现形式,使每个编码对象获得一个唯一的、不变的法定号码。 

二、编码对象 

公民身份号码的编码对象是具有中华人民共和国国籍的公民。 

三、号码的结构和表示形式 

1、号码的结构 

公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。

排列顺序从左至右依次为:

六位数字地址码

八位数字出生日期码

三位数字顺序码

一位数字校验码。 

2、地址码 

表示编码对象常住户口所在县(市、旗、区)的行政区划代码,按GB/T2260的规定执行。 

3、出生日期码 

表示编码对象出生的年、月、日,按GB/T7408的规定执行,年、月、日代码之间不用分隔符。 

4、顺序码 

表示在同一地址码所标识的区域范围内,对同年、同月、同日出生的人编定的顺序号,顺序码的奇数分配给男性,偶数分配给女性。 

5、校验码 

(1)十七位数字本体码加权求和公式 

S = Sum(Ai * Wi), i = 0, ... , 16 ,先对前17位数字的权求和 

Ai:表示第i位置上的身份证号码数字值 

Wi:表示第i位置上的加权因子 

Wi: 7  9  10  5  8  4  2  1  6  3  7  9  10  5  8  4  2 

(2)计算模 

Y = mod(S, 11) 

(3)通过模得到对应的校验码 

Y: 0 1 2 3 4 5 6 7 8 9 10 

校验码: 1 0 X 9 8 7 6 5 4 3 2 

以下为自己写的软件

点击打开链接
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  算法 工具 vb excel