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

表AfterEdit事件代码：

If e.Col.name = "就诊日期"
    If e.Row("就诊日期") < e.Row("出生日期")
        MessageBox.show("对不起,就诊日期不能小于出生日期!")
        e.Row("就诊日期") = Nothing
    Else
        e.Row("年龄") = e.Row("就诊日期").year - e.Row("出生日期").year-1+(24-(12- e.Row("就诊日期").month)-e.Row("出生日期").month)\12 & "岁" & (24-(12- e.Row("就诊日期").month)-e.Row("出生日期").month) Mod 12 & "个月"
    End If
End If
If e.Col.name = "出生日期"
    If e.Row("就诊日期") > e.Row("出生日期")
        e.Row("年龄") = e.Row("就诊日期").year - e.Row("出生日期").year-1+(24-(12- e.Row("就诊日期").month)-e.Row("出生日期").month)\12 & "岁" & (24-(12- e.Row("就诊日期").month)-e.Row("出生日期").month) Mod 12 & "个月"
    Else
        MessageBox.show("对不起,出生日期不能大于就诊日期!")
        e.Row("出生日期") = Nothing
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:求解例子.rar