计算身份证校验码

ixiongge · 发表于 2012-1-25 09:01

这个要好好学习

ZYOL · 发表于 2012-6-10 15:58

有没有办法写一个能验证18位身份证是否合法的函数

sbswangrui · 发表于 2012-6-20 21:41

不知道怎么用？谢谢指点为盼。

追溯傳説 · 发表于 2012-7-9 13:38

新手学习了，谢谢

baiyin85 · 发表于 2012-9-5 15:41

很经典学习了~~~~~~~~~~

微笑king · 发表于 2013-5-7 22:32

记号。真牛。弱弱的问一句，函数名称后面加个$什么意思？
如：LTrim$(Str$。。。。。。

香川群子 · 发表于 2013-5-8 00:04

ldy 发表于 2008-12-5 19:05
习惯性的输入自己的18位号，返回位数不对。还以为自己非法了。
原来是用前 17位来算第18位。呵呵我又合法 ...

简洁的代码在这里：

Function ChkID(ID$)
For i = 1 To 17
t = t + Mid(ID, i, 1) * (2 ^ (18 - i) Mod 11)
Next
s = Mid("10X98765432", t Mod 11 + 1, 1)
If s = Right(ID, 1) Then ChkID = "Check OK! " Else ChkID = "Check Err! OK is (" & Left(ID, 17) & s & ")"
End Function

复制代码

香川群子 · 发表于 2013-5-8 00:19

ZYOL 发表于 2012-6-10 15:58
有没有办法写一个能验证18位身份证是否合法的函数

喜欢函数的在这里：

A1中输入18位身份证（或前17位即可）
下面数组公式自动计算后返回含正确末位校验码的身份证号码：

=LEFT(A1,17)&MID("10X98765432",MOD(SUM(MID(A1,ROW($1:$17),1)*2^(18-ROW($1:$17))),11)+1,1)

复制代码

需要执行数组三键。

…………
下面函数，在A1中输入15位老身份证后，自动补足19xx年并计算出正确的末位校验码：

=REPLACE(A1,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A1,7,,19),ROW($1:$17),1)*2^(18-ROW($1:$17))),11)+1,1)

复制代码

需要执行数组三键。

香川群子 · 发表于 2013-5-8 00:24

楼主是否考虑把我的代码抄录到1楼？

我的代码比你的简洁多了…………

bokeli · 发表于 2013-7-15 22:15

不错，慢慢学习！！

		自动登录	找回密码
密码			免费注册