JuNe-Ff的专栏

学海无涯

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

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
个人分类: VB编程
想对作者说点什么? 我来说一句

身份证号15位转18位工具

2009年02月03日 104KB 下载

身份证18位—15位转换器

2010年06月08日 79KB 下载

星翔新旧身份证号码转换工具1.01

2010年01月15日 1.06MB 下载

excelVBa身份证号码转换器

2009年03月31日 32KB 下载

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭