ACCESS，身份证15位升级18位--急！！在线等待

hvop · 发表于 2009-7-6 14:18

我现在有个ACCESS里面的身份证字段，其中有90%是18位的，有10%是15位的。
请教：在建立查询，通过更新查询里面的表达式生成器输入什么函数，能帮我把15位的转化为18位。。。
数量总共有几千个。

谢谢大家

或者有更好的方法

急急急！！！在线等

[ 本帖最后由 hvop 于 2009-7-6 14:20 编辑 ]

lanseqingren · 发表于 2009-7-7 11:29

导出到EXCEL改好在导回来就好了。

杨成云 · 发表于 2009-7-7 12:50

原帖由 lanseqingren 于 2009-7-7 11:29 发表
导出到EXCEL改好在导回来就好了。

这也是比较理想的方法之一，将15位身份证变成18位的方法，可以参考我的博客文章http://blog.163.com/ycy_sdfc/blog/static/1961804200951111727300/
改好后又将Excel数据导入到Access中就行了。

轻风 · 发表于 2009-7-7 14:04

新建一个模块，贴入自定义函数代码：

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

复制代码

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

[求助] ACCESS，身份证15位升级18位--急！！在线等待