[求助]十万火急!十伍位的身份证号码升级到十八位

pkingson

求助:急,因为以前已经录了十五位的身份证号码,现在升级到十八位,所以有大量的身份证号码要更新,如何把十伍位的身份证号码升级到十八位,有人给了个这样的函数{=IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A2,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A2)},可是结果与真正的身份证号码有出入.能帮我解决下吗?

见附件

游客，如果您要查看本帖隐藏内容请回复

乌の甲乌

没办法

非有非无

Function IDCode15to18(sCode15 As String) As String
    '*　功能:将15的身份证号升为18位(根据GB 11643-1999)
    '*　参数:原来的号码
    '*　返回:升位后的18位号码
    Dim i As Integer
    Dim num As Integer
    Dim code As String
    num = 0
    IDCode15to18 = Left(sCode15, 6) + "19" + Right(sCode15, 9)
    '　计算校验位
    For i = 18 To 2 Step -1
      num = num + (2 ^ (i - 1) Mod 11) * (Mid(IDCode15to18, 19 - i, 1))
    Next i
    num = num Mod 11
    Select Case num
    Case 0
      code = "1"
    Case 1
      code = "0"
    Case 2
      code = "X"
    Case Else
      code = Trim(Str(12 - num))
    End Select
    IDCode15to18 = IDCode15to18 + code
End Function

hgh1600

可行吗？

chaojianan

谢谢3楼，收藏了。