学生信息管理系统——添加日历

  在做学生管理系统优化时，会有很多值的我们学习和思考的问题，今天分享的是在选择日期的时候显示日历，提高效率也更加人性化。

•   选择工程部件添加  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