- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 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
然后复制公式就可以了 |
|