主题：计算年龄

请问老师：

在DataColChanged中计算年龄：要求用2019-08-31减去[出生日期]（列），然后除以10000，再取整，代码怎么写呢？

 

int[(“2019-08-31” - [出生日期])/10000]

 

把2019-08-31变成8位数，把[出生日期]变成8位数，不知怎么变。

参考：http://www.foxtable.com/webhelp/topics/2647.htm

Date.Today.Year 改成实际的日期怎么改呢？

比如：2019.08.31-[出生日期]

dim d as date = #08/31/2019#

foxtable真是太博大精深、变化多端了。谢谢。

这么写为什么不行？

 

If e.DataCol.name = "出生日期" Then
    If e.newvalue <> Nothing Then
        Dim a As Date = #08/31/2019#
        Dim d As Date = New Date(e.newvalue.substring(0,4), e.newvalue.substring(5,2), 1)
        Dim y As Integer = d.year
        If format(d, "MMdd") <= Format(a, "MMdd") Then
            e.DataRow("年龄") = a.year - y
        Else
            e.DataRow("年龄") = a.year  - y -1
        End If
    Else
        e.DataRow("年龄") = Nothing
    End If
End If

帮助的用法有什么问题？为什么不使用帮助的方法？http://www.foxtable.com/webhelp/topics/2647.htm

老师，不好意思，帮助的例子是四舍五入，我这个要求是只舍不入。所以想用这个。

明白了，本来就是整除。/

还是不行，算出来的年龄有的正确，有的不正确。原因就是取整而不是五入。

Math.Round(tp.TotalDays / 365.2422,2)