Foxtable(狐表)用户栏目专家坐堂 → 从身份证号码提取年龄,如何确保根据时间自动计算


  共有2367人关注过本帖树形打印复制链接

主题:从身份证号码提取年龄,如何确保根据时间自动计算

帅哥哟,离线,有人找我吗?
aza520
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
从身份证号码提取年龄,如何确保根据时间自动计算  发帖心情 Post By:2018/8/15 11:38:00 [显示全部帖子]

以下代码根据身份证号码提取年龄,如何修改才能根据时间自动计算年龄?
Select Case e.DataCol.Name
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then  '身份证号码是否为空
            'e.DataRow("出生日期") = Nothing  '如果为空,则清除出生日期
            e.DataRow("性别") = Nothing  '如果为空,则清除出生日期
            e.DataRow("年龄") = Nothing '如果为空,则清除年龄
        Else
            '否则从身份证号码列中提取出生日期
            'e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
            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 
            End If
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
aza520
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
  发帖心情 Post By:2018/8/15 17:07:00 [显示全部帖子]

老师,我在AfterOpenProject事件设如下代码,通过重置身份证号码重新计算年龄,是这样吗?因为现在这段代码无法验证,所以想确认一下


DataTables("劳务人员登记表").DataCols("身份证号码").RaiseDataColChanged()'通过重置身份证号码重新计算年龄

 回到顶部