设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1820|回复: 5
打印 上一主题 下一主题

[查询] 身份证号码查询必要的数据!!!

[复制链接]
跳转到指定楼层
1#
发表于 2006-9-22 04:25:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式





110000 北京市

110100 市辖区
110101 东城区
110102 西城区
110103 崇文区
110104 宣武区
110105 朝阳区
110106 丰台区
110107 石景山区
110108 海淀区
110109 门头沟区
110111 房山区
110112 通州区

*****************后面还有很多,要的下载附件即可。文字字数太多不能贴上

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2006-9-22 04:31:00 | 只看该作者
如果那位大哥把他做成了一个查询用的表,请发上来大家共享共享。

偶想搞一个身份证查询工具用一下。。。。。。。。。。
3#
 楼主| 发表于 2006-9-22 04:34:00 | 只看该作者


查询男女的模块:

Public Function XB(身份证号 As String) As String
Dim i As Integer

If Len(身份证号) = 15 And IsNumeric(Right(身份证号, 1)) Then
   i = CInt(Right(身份证号, 1))
   If i Mod 2 = 0 Then XB = "女" Else XB = "男"
  End If
If Len(身份证号) = 18 And IsNumeric(Mid(身份证号, 17, 1)) Then
   i = CInt(Mid(身份证号, 17, 1))
   If i Mod 2 = 0 Then XB = "女" Else XB = "男"
End If
End Function
4#
 楼主| 发表于 2006-9-22 04:36:00 | 只看该作者
年龄处理:

Dim y2 As Integer
Dim m2 As Integer
Dim d2 As Integer
y2 = Year(Date)
m2 = Month(Date)
d2 = Day(Date)

If Not IsNull(Me.文本0) Or Me.文本0 <> "" Then
If m2 - Month(Me.文本0) < 0 Or (m2 - Month(Me.文本0) = 0 And d2 - Day(Me.文本0) < 0) Then Me.文本2 = y2 - Year(Me.文本0) - 1
Else
Me.文本2 = y2 - Year(Me.文本0) End If
End If
End Sub
5#
 楼主| 发表于 2006-9-22 04:38:00 | 只看该作者
出生日期模块:



Public Function CSNY(身份证号 As String) As Date
Dim strRq As StringIf Len(身份证号) = 15 Then
   strRq = Mid(身份证号, 9, 2) & "/" & Mid(身份证号, 11, 2) & "/" & "19" & Mid(身份证号, 7, 2)
   If IsDate(strRq) Then CSNY = CDate(strRq)
End If
If Len(身份证号) = 18 Then
   strRq = Mid(身份证号, 11, 2) & "/" & Mid(身份证号, 13, 2) & "/" & Mid(身份证号, 7, 4)
   If IsDate(strRq) Then CSNY = CDate(strRq)
End If
End Function
6#
 楼主| 发表于 2006-9-22 04:39:00 | 只看该作者
住址模块未有。。。。。。。。。。。。。。


[此贴子已经被作者于2006-9-21 20:40:31编辑过]

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:15 , Processed in 0.077836 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表