大家赶紧帮帮我的忙 好心人~

来源：百度知道 编辑：UC知道 时间：2024/06/15 02:42:03
我的系统是用的是VB+ACCESS，用一个语句限制一下数据库中的出生日期，使用户输入出生年月日的时候有个限制范围，不能过分不切实际。要求输入的系统小于（系统当前时间 -18 )并且小于退休时间才行。谢谢大家帮我写下~新增员工的按钮式COMMAND5，输入的文本框是TXET1(4).大家赶紧帮帮我 火烧眉毛了~

Private Sub Command5_Click()
Dim Date1 As Date
Dim Date2 As Date
Date1 = Text1(4).Text
Date2 = Date - Date1
If Date2 > 18 * 365 And Date2 < 60 * 360 Then
MsgBox "他大于18岁,小于60岁，可以写入档案。"
'……省略了写入数据库的代码……
Else
MsgBox "要么小于18，要么大于60岁，属于非法人员。"
End If

End Sub