主题：根据出生日期计算年龄月龄及日龄的代码（医学相关）

上面的有错，下面对

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
    Else
        '否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("月龄") = Nothing '则清空月龄
    Else
        '否则计算月龄
        e.DataRow("月龄") = Date.Today.month - e.DataRow("出生日期").month
        If e.DataRow("月龄") < 0 Then '如果月龄小于0
            e.DataRow("月龄")  = e.DataRow("月龄") + 12
            e.DataRow("年龄") =  e.DataRow("年龄") -1
        End If
    End If
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("日龄") = Nothing '则清空日龄
    Else
        '否则计算日龄
        e.DataRow("日龄") = Date.Today.day - e.DataRow("出生日期").day + 1
        If e.DataRow("日龄") < 0 Then '如果日龄小于0
            Dim intInputMonth As Integer = e.DataRow("出生日期").month '这是出生的月份
            Dim dt As New DateTime(DateTime.Today.Year, intInputMonth, 1) '计算该月份的天数
            Dim days As Integer = dt.AddMonths(1).DayOfYear - dt.DayOfYear '该月份的天数
            e.DataRow("日龄")  =  days + e.DataRow("日龄")
            e.DataRow("月龄") =  e.DataRow("月龄") -1
        End If
    End If
End If

这样计算出的一个人的年龄月龄日龄才符合实际

（开处方时3岁以上写年龄，1-3岁要写年月龄，三个月到1岁写月日龄，满月内写日龄）

见笑了