[求助]建立了“身份证号”列，如何通过身份证号计算出年龄，并在“年龄”列中显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]建立了“身份证号”列，如何通过身份证号计算出年龄，并在“年龄”列中显示

共有2126人关注过本帖树形打印复制链接主题：[求助]建立了“身份证号”列，如何通过身份证号计算出年龄，并在“年龄”列中显示

有点青

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2017/4/7 10:46:00 [显示全部帖子]

DataColChanged事件

If e.DataCol.Name = "身份证号码" Then '是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("年龄") = Nothing '如果为空,则清除出生日期
    Else
        Dim d As Date = ReadBirthday(e.DataRow("身份证号码"))
        Dim y As Integer = d.year
        If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    End If
End If

[此贴子已经被作者于2017/4/7 14:39:57编辑过]