Office中国论坛/Access中国论坛

标题: [求助]十万火急!十伍位的身份证号码升级到十八位 [打印本页]

作者: pkingson 时间: 2006-11-14 07:36
标题: [求助]十万火急!十伍位的身份证号码升级到十八位
求助:急,因为以前已经录了十五位的身份证号码,现在升级到十八位,所以有大量的身份证号码要更新,如何把十伍位的身份证号码升级到十八位,有人给了个这样的函数{=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)},可是结果与真正的身份证号码有出入.能帮我解决下吗?

见附件

作者: 乌の甲乌 时间: 2006-11-15 21:12
没办法

作者: 非有非无 时间: 2007-4-22 06:57
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 时间: 2007-5-3 06:50
可行吗？

作者: chaojianan 时间: 2009-10-17 21:19
谢谢3楼，收藏了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)