根据出生日期计算年龄月龄及日龄的代码（医学相关） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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
            e.DataRow("日龄") = 30 + e.DataRow("日龄")
            e.DataRow("月龄") = e.DataRow("月龄") -1
        End If
    End If
End If
If e.DataCol.Name = "患者姓名" Then '如果更改的是姓名列
    If e.DataRow.IsNull("患者姓名") Then '姓名是否为空
        e.DataRow("拼音码") = Nothing '如果为空,则清除拼音码
    Else
        '否则从姓名列中提取拼音码
        e.DataRow("拼音码") = GetPY(e.DataRow("患者姓名"),True)
    End If
End If

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