- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口中如何计算时间 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=14461)
-- 发布时间：2011/11/20 9:36:00
-- 窗口中如何计算时间
我想在窗口中时间控件中输入日期后进行判断，如果出生日期早于访问日期，则弹出对话框“出生日期不能早于访问日期”，同时计算父母亲的生育年龄。好像生育年龄可以继承表中的代码，前者不能继承。谢谢！
此主题相关图片如下：1111111.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2011/11/20 11:46:00
--
出生日期控件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