身份证号码查询必要的数据！！！

chang

110000 北京市

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

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

chang

住址模块未有。。。。。。。。。。。。。。

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

chang

出生日期模块：



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

年龄处理：

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

查询男女的模块：

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

如果那位大哥把他做成了一个查询用的表，请发上来大家共享共享。

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