主题：关于计算年龄 EXCEL中=int（2017.02-B1）

 EXCEL中=int（2017.02-B1）中可以计算出整数的岁   比如 B列是出生日期  格式为1987.09   利用EXCEL可以计算出岁数

If e.DataCol.name = "出生日期" Then
    If e.newvalue <> Nothing Then
        Dim y As Integer = e.NewValue.year
        If format(e.newvalue, "MMdd") <= Format(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    Else
        e.DataRow("年龄") = Nothing
    End If
End If

 

http://www.foxtable.com/webhelp/scr/2647.htm

谢谢

出现图片的内容
此主题相关图片如下：j657l}h$)33g0u`$kmpag2.png

改成数据列，写到datacolchanged事件去

 

http://www.foxtable.com/webhelp/scr/1445.htm

 

还是不行啊 老师  我的年龄列改成了数据列，但是都没有显示啊？
此主题相关图片如下：u`29w)4n)hpo~4qjs46_c.png

此主题相关图片如下：8{r$ow780qs1({c)8cj0jc.png

重置列

 

http://www.foxtable.com/webhelp/scr/1469.htm

 

都试过了  还是不行啊  老师  我可以单独给您传一下例子么？
此主题相关图片如下：ljnljbk8pi(@o1{fnu0%dk5.png

e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生年月").Year

代码改一下

 

If e.DataCol.name = "出生年月" Then
    If e.newvalue <> Nothing Then

        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(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    Else
        e.DataRow("年龄") = Nothing
    End If
End If