当先锋百科网

首页 1 2 3 4 5 6 7

文章由来:

对于学生里面需要添加日期,不仅要自己手动输入年月日,还要注意时间,类型是否是正确的。有点麻烦,经过小伙伴的提醒发现可以更换为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 & "'"