主题：如何计算两个时间点间的年龄（包括岁、月、日）

If e.DataCol.Name = "出生日期" OrElse e.DataCol.Name = "就诊日期" Then

    Dim dr As DataRow = e.DataRow

    If dr.IsNull("出生日期") OrElse dr.IsNull("就诊日期") OrElse dr("出生日期")> dr("就诊日期") Then

        dr("年龄") = Nothing

    Else

        Dim s As String

        Dim d1,d2 As Date

        Dim y,m,d As Integer

        d1= dr("出生日期")

        d2=dr("就诊日期").Adddays(1)

        y=DateDiff("yyyy",d1,d2)

        m=DateDiff("m", d1,d2)

        d=DateDiff("d", d1,d2)

        

        If d1.AddYears(y) >d2 Then

            y =y -1

        End If

        If d1.AddMonths(m) >d2 Then

            If y =0 Then

                m=m-1

            End If

        End If

        m = m-12*y

        If d1.AddDays(d) >d2 Then

            d=d-1

        End If

        d=d-DateDiff("d",d1, d1.addmonths(y*12+m))       

        s = iif(y =0, "",y & "年") & iif(m =0,"",m & "月")

        s+= iif(d =0,"",d & "日")

        dr("年龄") = s

    End If

End If