Office中国论坛/Access中国论坛

标题: 身份证号码查询必要的数据！！！ [打印本页]

作者: chang 时间: 2006-9-22 04:25
标题: 身份证号码查询必要的数据！！！

[attach]20485[/attach]

110000 北京市

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

*****************后面还有很多，要的下载附件即可。文字字数太多不能贴上[attach]20486[/attach]

作者: chang 时间: 2006-9-22 04:31
如果那位大哥把他做成了一个查询用的表，请发上来大家共享共享。

偶想搞一个身份证查询工具用一下。。。。。。。。。。

作者: chang 时间: 2006-9-22 04:34

查询男女的模块：

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

作者: chang 时间: 2006-9-22 04:36
年龄处理：

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

作者: chang 时间: 2006-9-22 04:38
出生日期模块：

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

作者: chang 时间: 2006-9-22 04:39
住址模块未有。。。。。。。。。。。。。。

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

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