| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- 哪位高人能写个15位升18位身份证号码的函数吗~~ (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=29436) |
| -- 作者：fuanzj -- 发布时间：2017/11/2 8:45:00 -- 哪位高人能写个15位升18位身份证号码的函数吗~~ excel有现成的15位升级18位身份证号码函数，搜索了论坛好像没有大神发布过这个。 哪位能给写个吗~~多谢了
|
| -- 作者：lyang70 -- 发布时间：2017/11/6 10:36:00 -- 这个15位和18位好像是有规则的，应该可以，有时间的话可以试试看... |
| -- 作者：fuanzj -- 发布时间：2017/11/7 8:34:00 -- 那函数的复杂程度，真心不是菜鸟能搞定的~~~~ 看着都眼花，电子表格版本的： =(REPLACE(A2,7,,19))&(INDEX({1,0,"X",9,8,7,6,5,4,3,2},1,(MOD(SUM(MID(REPLACE(A2,7,,19),1,1)*7+MID(REPLACE(A2,7,,19),2,1)*9+MID(REPLACE(A2,7,,19),3,1)*10+MID(REPLACE(A2,7,,19),4,1)*5+MID(REPLACE(A2,7,,19),5,1)*8+MID(REPLACE(A2,7,,19),6,1)*4+MID(REPLACE(A2,7,,19),7,1)*2+MID(REPLACE(A2,7,,19),8,1)*1+MID(REPLACE(A2,7,,19),9,1)*6+MID(REPLACE(A2,7,,19),10,1)*3+MID(REPLACE(A2,7,,19),11,1)*7+MID(REPLACE(A2,7,,19),12,1)*9+MID(REPLACE(A2,7,,19),13,1)*10+MID(REPLACE(A2,7,,19),14,1)*5+MID(REPLACE(A2,7,,19),15,1)*8+MID(REPLACE(A2,7,,19),16,1)*4+MID(REPLACE(A2,7,,19),17,1)*2),11))+1))
[此贴子已经被作者于2017/11/7 10:03:11编辑过]
|