主题：年龄的计算

出生日期列和入职日期列已经存在，现需要精确计算入职时的年龄。

我看了几种不同的方式，觉得以下代码靠谱，毕竟精确到了时间。请大神帮我修改一下。

 

 

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

 有什么疑问？代码有什么问题？

 

Select Case e.DataCol.name
    Case "入职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim d1 As Date  = Date.today
            Dim d2 As Date = CDate(e.DataRow("入职日期"))
            e.DataRow("年龄") = d1.Year - d2.Year + iif(Format(d2, "MMdd") >= Format(d1, "MMdd"), -1, 0)
        End If
End Select

我需要的是入职时候的年龄，而不是当下的年龄，一共有三列：出生日期，入职日期，年龄。

Select Case e.DataCol.name
    Case "入职日期", "出生日期"
        If e.DataRow.IsNull("入职日期") OrElse e.DataRow.IsNull("出生日期") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = CDate(e.DataRow("入职日期")) - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select

计算出来的年龄后面多了一个点，不过没关系，谢谢。

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

 

改成

 

e.DataRow("年龄") = Format(tp.TotalDays / 365.2422, "0.00")