15和18位混合身份证号统一转换! 如何将15位、18位混合的身份证号快速统一转换成18位,如: 现在用的身份证号都是18位的, 1-6位表示出生地区 7-14位表示出生年月日 15-16位表示出生序号 17位表示性别(奇数为男,偶数为女) 18位为识别码 但是以前有部分仍是15位的 15位身份证号中的出生日期中 少了年份中的“19”和末位识别码 如何进行转换?首先我们要知道身份证识别码的计算规则 1、将身份证号码的前17位数字分别乘以一个系数,从第1位至第17位分别乘以7-9-10-5-8-4-2-1-6-3-7-9-10-5-8-4-2 2、将17位相乘的结果相加 3、相加的结果除以11,取余数 4、根据余数,对应相应的识别码 根据这个规则,可以编写下述的VBA代码,存在在模块中: (为了不偷懒,截图,各位自动手输入一次) 通过这个自定义IDS函数可以计算末尾码 在B1输入公式: =ids(a1) 然后向下填充即可! 你学会了吗? 对文章不懂的地方欢迎右下角留言! |
|