文章由来：

对于学生里面需要添加日期，不仅要自己手动输入年月日，还要注意时间，类型是否是正确的。有点麻烦，经过小伙伴的提醒发现可以更换为DTpicker的日期控件。

步骤

1.首先添加控件

添加过程：工具——部件——控件——“Microsoft  Windows Common Controls-2.6.0”——应用——确定

.运行时的状态

2.属性的更改

此控件中的日期返回到文本形式（存储到数据库中依靠的是文本格式）默认的日期格式可能跟数据库默认的文本格式不相符，

方法一：我们可以通过format属性进行修改。

值为0时：

值为1时：

值为2时：

值为3时：自定格式需要提前设置customformat格式

举个例子：

方法二：代码

DTPicker1.Format   =   dtpCustom   
DTPicker1.CustomFormat   =   "yyyy.mm.dd"

方法三：

控制面板—— 区域和语言设置——自定义——日期——短日期格式设置成需要的模式，如：YYYY.MM.DD

3.代码使用

1.两个日期进行判断

If DTPickerBorn.Value > DTPickerRu.Value Then
                     MsgBox "入校时间大于出生日期！", vbOKOnly + vbExclamation, "警告"
                     DTPickerBorn.SetFocus
End If

2.用于数据赋值时

		Dim borndate As String  '用来存放出生日期
		Dim rudate As String 
		  '将出生日期,入校日期类型进行转换
	borndate = Format(DTPickerBorn.Value)
        rudate = Format(DTPickerRu.Value)
		
    	mrc.Fields(3) = Trim(borndate)
	mrc.Fields(6) = Trim(rudate)
	

最后一个代码的顺序就是，先定义变量，然后进行日期转换，进行两个日期的判断，最后进行赋值给mrc

3.进行查询时

txtSQL = "select * from student_Info where born_date>'" & DTPicker1.Value & "'"