以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178719)
--  作者：wutingchao
--  发布时间：2022/7/17 23:01:00
--  表达式
表达式列怎样调动日期函数。比如要通过身份证号计算年龄，怎样象excel那样插入函数
--  作者：有点蓝
--  发布时间：2022/7/17 23:13:00
--  
表达式列计算不了，需要使用代码处理，参考：http://www.foxtable.com/webhelp/topics/2647.htm

身份证里提取生日处理：http://www.foxtable.com/webhelp/topics/0320.htm

可以如下设置DataColChanged事件：

Select Case e.DataCol.name
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(ReadBirthDay(e.DataRow("身份证号")))

            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select