以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  各位大师：怎样指定某一格身份证号，提取到某一格为出生日期，年龄等？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82962)
--  作者：闲乐
--  发布时间：2016/3/29 8:44:00
--  各位大师：怎样指定某一格身份证号，提取到某一格为出生日期，年龄等？
各位大师：怎样指定某一格身份证号，提取到某一格为出生日期，年龄等？可以变的行或列能否把它变为红色就好，对不起我是今天才学的菜鸟。谢谢大家！
 下载信息  [文件大小：292.0 KB  下载次数：105]
图片点击可在新窗口打开查看点击浏览该文件:身份证籍贯编码.xls

请教狐狸爸爸：身份证号码有效性验证，提取籍贯、性别、出生日期、年龄信息
以下是Access的窗体VBA代码，拿来用到狐表中，需要如何编写成狐表的代码！

Option Explicit

\'===================================================================
\'函数名称： IsIDNumber
\'功能描述： 根据GB11643-1999编码规则验证18位身份证号码是否有效
\'输入参数： 参数1：IDNumber 必需的，18位身份证号码
\'返回参数： 有效返回True,无效返回False
\'兼 容 性：
\'使用示例： IsIDNumber("370284197901130819") \'返回True
\'相关调用：
\'作 者： 红尘如烟
\'创建日期： 20010-4-25
\'===================================================================
Function IsIDNumber(ByVal IDNumber As String) As Boolean
    Const W As String = "79058421637905842"     \'加权因子
    Const C As String = "10X98765432"           \'校验码
    Dim S As Integer, i As Integer, T As Integer

    IDNumber = UCase(Trim(IDNumber))
    If Len(IDNumber) <> 18 Then Exit Function
    If Not IsNumeric(Mid(IDNumber, 1, 17)) Then Exit Function
    If Not IDNumber Like "*[0-9X]" Then Exit Function

    For i = 1 To 17
        T = Mid(W, i, 1)
        If T = 0 Then T = 10
        S = S + Mid(IDNumber, i, 1) * T
    Next
    T = S Mod 11
    If Right(IDNumber, 1) = Mid(C, T + 1, 1) Then IsIDNumber = True
End Function


Private Sub Form_Load()

End Sub

Private Sub txtAge_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtIDNumber_AfterUpdate()
    If Nz(Me.txtIDNumber) = "" Then Exit Sub

    \'验证输入的是否为一个有效的身份证号码
    If Not IsIDNumber(Nz(Me.txtIDNumber)) Then
        MsgBox "无效的身份证号码！", vbInformation
        Me.txtIDNumber = Null
        Me.txtBirthday = Null
        Me.txtSex = Null
        Me.txtNativePlace = Null
    Else
        \'从表中取得籍贯
        Me.txtNativePlace = DLookup("[FAddress]", "tblNativePlaceList", "[FNumber]=" & Left(Me.txtIDNumber, 6))
        \'提取出生日期（第7-14位）
        Me.txtBirthday = DateSerial(Mid(Me.txtIDNumber, 7, 4), Mid(Me.txtIDNumber, 11, 2), Mid(Me.txtIDNumber, 13, 2))
        \'提取性别（第17位，奇数为男，偶数为女）
        Me.txtSex = IIf(Mid(Me.txtIDNumber, 17, 1) Mod 2 = 0, "女", "男")
        \'根据出生日期计算年龄，精确到年
        \'        Me.txtAge = DateDiff("yyyy", Me.txtBirthday, Date)
        \'根据出生日期计算年龄，精确到月
        Me.txtAge = DateDiff("m", Me.txtBirthday, Date) \\ 12
        \'根据出生日期计算年龄，精确到天
        \'        Me.txtAge = DateDiff("d", Me.txtBirthday, Date) \\ 365.25
    End If
End Sub
--  作者：Hyphen
--  发布时间：2016/3/29 9:06:00
--  
参考：
--  作者：大红袍
--  发布时间：2016/3/29 9:26:00
--  

ReadBirthDay 从身份证号码中读取出生日期
ReadSex 从身份证号码中读取性别
ValidPIN 用于校验身份证号码是否正确

 

http://www.foxtable.com/help/topics/2647.htm
--  作者：大红袍
--  发布时间：2016/3/29 9:27:00
--  

DataColchanged事件，代码

 

Select Case e.DataCol.name
    Case "证件号码"
        If e.DataRow.IsNull("证件号码") Then \'身份证号码是否为空
            e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        Else
            \'否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("证件号码"))
        End If
End Select