出生日期列和入职日期列已经存在,现需要精确计算入职时的年龄。
我看了几种不同的方式,觉得以下代码靠谱,毕竟精确到了时间。请大神帮我修改一下。
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 IfEnd Select