[已解决]身份证号15位升18位

山青水秀a

有没有身份证号15位升18位的函数公式？如350421950205002的18位是多少。

最佳答案

月排行榜 / 总排行榜

TT147258369

2011-9-9 00:16

【资料】身份证15位转18位
http://www.excelpx.com/forum.php ... &fromuid=366954

跳转到最佳答案楼层

long826121

等待高手中.......................

youfang

15位的身份证都是旧版的，是缺省了年份19XX中的19，和1位校验码。用函数不知道怎么实现，估计公安系统的人比较熟悉

fjmxwrs

有一个数组公式可以完成，论坛上就有，我记不太清了。
这个自定义函数的，你试下就知道了
Function IdCardLastChar(num)
    Dim cId As String
    Dim nsum As Integer
    Dim check_number As String
   
    If Len(num) = 15 Then
        cId = Left(num, 6) & "19" & Right(num, 9)
    ElseIf Len(num) = 17 Or Len(num) = 18 Then
        cId = Left(num, 17)
    End If
    '计算方法
    nsum = Mid(cId, 1, 1) * 7
    nsum = nsum + Mid(cId, 2, 1) * 9
    nsum = nsum + Mid(cId, 3, 1) * 10
    nsum = nsum + Mid(cId, 4, 1) * 5
    nsum = nsum + Mid(cId, 5, 1) * 8
    nsum = nsum + Mid(cId, 6, 1) * 4
    nsum = nsum + Mid(cId, 7, 1) * 2
    nsum = nsum + Mid(cId, 8, 1) * 1
    nsum = nsum + Mid(cId, 9, 1) * 6
    nsum = nsum + Mid(cId, 10, 1) * 3
    nsum = nsum + Mid(cId, 11, 1) * 7
    nsum = nsum + Mid(cId, 12, 1) * 9
    nsum = nsum + Mid(cId, 13, 1) * 10
    nsum = nsum + Mid(cId, 14, 1) * 5
    nsum = nsum + Mid(cId, 15, 1) * 8
    nsum = nsum + Mid(cId, 16, 1) * 4
    nsum = nsum + Mid(cId, 17, 1) * 2
    '*计算校验位
    check_number = 12 - nsum Mod 11
    If check_number = 10 Then
        check_number = "X"
    End If
    If check_number = 12 Then
        check_number = "1"
    End If
    If check_number = 11 Then
        check_number = "0"
    End If
    IdCardLastChar = check_number
End Function

摘自无爱无恨老师：http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=121285&pid=1721284&fromuid=281125

TT147258369

【资料】身份证15位转18位
http://www.excelpx.com/forum.php ... &fromuid=366954

山青水秀a

回复 fjmxwrs 的帖子

谢谢！你给的这个我还不会用，只好寻简单的，不过还是谢谢您！