使用MonthView控件和DTPicker控件输入日期

在学生信息管理系统的添加学籍部分，需要在text中输入出生日期和入学日期，这一步比较麻烦，大家在测试的时候应该都感觉到了，而且还要求yyyy-mm-dd格式。下面我分享一个通过选择输入日期的方法，让我们的系统更加人性化！

1.首先在工程—部件中添加 Microsoft
Windows Common Controls-2 6.0，在工具栏中就会出现MonthView控件和DTPicker控件。

2.然后在添加学籍的窗体上添加这两个控件，DTPicker控件和combobox看上去一样，MonthView控件像个小日历，这两个控件配合使用。注意需要把MonthView控件的visible属性值设置成false。如果用户觉得这种方法不好使，也可以在DTPicker控件处用鼠标点击，变为蓝色后，直接输入年、月、日。效果图如下所示：



3.接下来需要修改原来的代码。原来的txtborndate.text就相当于现在的DTPickerborn.value。

4.我们都知道一个学生的出生日期肯定早于入学日期，在录入信息的时候，管理员可能由于粗心等种种人为因素，造成还没出生就入学的笑话，那么就让我们的系统给判断一下吧！只需在“确认添加”事件下添加几行代码。

date1 = DTPickerborn.Value
date2 = DTPickerruxiao.Value

If DateDiff("d", CDate(date1), CDate(date2)) < 0 Then    '出生日期不可以大于入学日期
        MsgBox "出生日期不可以大于入学日期，请认真输入！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
End If

最后思想上移一下：发现问题就要解决问题。办法总比困难多。全心全意为人民服务！