主题：[求助]计算年龄问题

Select Case e.DataCol.name 

    Case "出生日期"

        If e.DataRow.IsNull("出生日期") Then

            e.DataRow("年龄") = Nothing

        Else

            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))

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

        End If

End Select

显示出来有小数，杂得到整数？