标题:
身份证升位excel模版
[打印本页]
作者:
SzAngel
时间:
2006-12-27 01:01
标题:
身份证升位excel模版
免责申明:
因身份证用途太多,本算法算出的身份证升位号码仅供参考。如有重要用途,敬请到公安机关核实。如果你依据本算法算出的身份证号码对你造成的损失,本人不承担任何直接或间接的责任。如果你使用就表示同意该申明。
备注:本模板默认设置是添加1900-1999年出生的人.
因工作需要,需将15位号码升位成18位身份证号码,网上有程序,但是不能批量转换。因此制作excel模板如下。
在第一行从a1开始分别输入:身份证号 ,校验位数, 模, 校验码 ,升位身份证号
1、在sheet中,a列设置单元格格式为文本格式。便于输入或复制身份证号码。并在a2单元格中输入一15位身份证号码,如
510122901024111
2、在b2单元格中输入公式:=IF(LEN(A2)=15,"正确",LEN(A2))
便于校验身份证号码输入错误。
3、在c2单元格中输入公式:=MOD((MID(A2,1,1)*7+MID(A2,2,1)*9+MID(A2,3,1)*10+MID(A2,4,1)*5+MID(A2,5,1)*8+MID(A2,6,1)*4+MID(A2,7,1)*6+MID(A2,8,1)*3+MID(A2,9,1)*7+MID(A2,10,1)*9+MID(A2,11,1)*10+MID(A2,12,1)*5+MID(A2,13,1)*8+MID(A2,14,1)*4+MID(A2,15,1)*2+11),11)
4、在d2单元格中输入公式:=IF(C2=0,1,IF(C2=1,0,IF(C2=2,"x",12-C2)))
5、在e2单元格中输入公式:=MID(A2,1,6)&"19"&MID(A2,7,9)&D2
然后复制公式就可以了
作者:
晴空
时间:
2006-12-27 10:27
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1