新手做的自定义函数，能校验18位身份证号码

starprotector

1999年7月1日实行的《公民身份号码GB 11643-1999》就开始规定18位身份证号了，不过15位的一代身份证直到2013年1月1日才全部作废。区别是，①表示年份的从2位变4位；②多了一个校验位。
所以一代身份证的15位号码无法验证真假，只能靠人根据年月等大概判断。鉴于早已作废，我的自定义函数就不加判别了。另，7楼的公式默认15位为真。
————
仔细看了下规范，每一位的原始系数还真是2的n次方，例如第一位系数是2^17=131072，因为每一位最终都需要除以11后取余数，所以系数去掉11的倍数后——即为7，作为系数的效果与131072相同。7即我函数中a的第1位（该数组从0位开始）……
所以7楼的算法原理与我的相同，相比下，还省去了建立自定义函数的操作，手机端、网页端都能用，推荐推荐。

vitrel

starprotector 发表于 2022-5-6 09:09
1999年7月1日实行的《公民身份号码GB 11643-1999》就开始规定18位身份证号了，不过15位的一代身份证直到201 ...

楼主，您好！

请参考。

mythqiu

starprotector 发表于 2022-4-29 20:44
在工作中发现末尾填写x的人不少，又增加了个判断语句。

既然vba，直接替换大写