计算身份证校验码

abzzl · 发表于 2006-2-22 21:04

计算身份证校验码
中国公民的18位身份证号码每一位有代表的意义，其中身份证号码的最后一位是校验码，网上很多文章介绍，计算都很复杂,在此就不多说。
其实算法是这样：把前17位的每一个数字和一串加权因子相乘，计算这些乘积的和(S)，加权因子是自右向左，分别是2，2^2，2^3，……2^17，大于10的就模11。用12加上这些乘积的和，再模11得到的数字作为校验码，如果是10则用X表示，如果>10，再模11。

用vba很容易写出计算和校验函数
Function vsm(olds) As String      'olds是前17位码
If Len(olds) = 17 Then
    Dim i, w, s, cs As Integer
    w = 1
    s = 0
    For i = 1 To 17
        w = (w * 2) Mod 11
        cs = Asc(Mid$(olds, 18 - i, 1)) - 48
        If cs >= 0 And cs < 10 Then
            s = s + cs * w
        Else
            vsm = "不是数字!" + Str$(i)
            i = 20
        End If
    Next
     If i = 18 Then
        s = (12 - s Mod 11 ) mod 11
        vsm = LTrim$(Str$(s))
        If s = 10 Then vsm = "X"
     End If
Else
    vsm = "位数不对!"
End If
End Function

[此贴子已经被作者于2007-12-23 9:04:04编辑过]

huangtaoccb · 发表于 2006-2-22 23:37

发上来不行吗?

huangtaoccb · 发表于 2006-2-25 00:39

怎么不行啊？能不能做个表上来看看啊，谢谢

abzzl · 发表于 2006-2-25 10:01

huangtaoccb:不好意思,我还不会把文件传上去,你能告诉我吗?

刚学会上传

bLIxo6Or.rar (10.5 KB, 下载次数: 1332)

[此贴子已经被作者于2006-2-25 11:03:19编辑过]

minsc_liu · 发表于 2007-6-19 13:02

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

chenhuafu · 发表于 2008-4-5 22:17

代码很简洁。理解起来比chenjun大师的函数容易。

sblisb · 发表于 2008-6-29 18:13

QUOTE:

以下是引用minsc_liu在2007-6-19 13:02:40的发言：

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

上面的加上一条判断最后一位是否相等即可

ldy · 发表于 2008-12-5 19:05

习惯性的输入自己的18位号，返回位数不对。还以为自己非法了。
原来是用前 17位来算第18位。呵呵我又合法了。
代码很简洁。

mnpking · 发表于 2009-1-18 10:30

下载慢慢来消化

wswcp · 发表于 2009-1-17 18:33

下载慢慢来消化

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

计算身份证校验码

评分

[原创]