以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]计算年龄问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65663)
--  作者：dsj001
--  发布时间：2015/3/20 10:09:00
--  [求助]计算年龄问题
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

显示出来有小数，杂得到整数？
--  作者：Bin
--  发布时间：2015/3/20 10:11:00
--  
http://www.foxtable.com/help/topics/0281.htm
--  作者：有点甜
--  发布时间：2015/3/20 10:11:00
--  

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

 

或者

 

e.DataRow("年龄") = math.Ceiling(tp.TotalDays / 365.2422)

 

或者

 

e.DataRow("年龄") = math.Floor(tp.TotalDays / 365.2422)

 
--  作者：dsj001
--  发布时间：2015/3/20 10:18:00
--  
谢谢！