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

hvop

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

谢谢大家

或者有更好的方法

急急急！！！在线等

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

lanseqingren

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

杨成云

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

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

轻风

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

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

复制代码