标题：窗口中如何计算时间

我想在窗口中时间控件中输入日期后进行判断，如果出生日期早于访问日期，则弹出对话框“出生日期不能早于访问日期”，同时计算父母亲的生育年龄。好像生育年龄可以继承表中的代码，前者不能继承。谢谢！
此主题相关图片如下：1111111.jpg

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

点击浏览该文件:管理项目1.rar

出生日期控件ValueChanged事件代码：

 

 

If e.Form.Controls("DateTimePicker1").Value = "" Then
    MessageBox.Show("请录入访问日期","提示")
    Return
End If
Dim d,d1 As Date
d = e.Form.Controls("DateTimePicker1").Value
d1 = e.Sender.Value
If d1 > d Then
    MessageBox.Show("出生日期不能早于访问日期","提示")
End If