在做学生管理系统优化时,会有很多值的我们学习和思考的问题,今天分享的是在选择日期的时候显示日历,提高效率也更加人性化。
- 选择工程部件添加 Microsoft windows Common Control-2 6.0 。
- 添加出来的效果
- 在添加的过程中涉及到出生日期和入学日期的问题,根据逻辑限制出生日期不能大于入学日期。
If DTPicker1.Value >= DTPicker2.Value Then
MsgBox "出生日期不能大于等于入校日期,请重新输入!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If DTPicker2.Value >= Date Then
MsgBox "入校日期不能大于当前日期,请重新输入!", vbOKOnly + vbExclamation, "警告"
Else
end if
end if