你在向 DTPicker 的 Value 赋值时,时分秒非零,那么就算修改日期也会保留相同的时分秒。 可以用 DateValue 函数丢弃时分秒部分;当然最好的方式就是从一开始就不要产生时分秒,SQL Server 中用下面的方式取没有时分秒的日期 Convert(datetime, Convert(char(8),GetDate(),112), 112)
查看DTPicker的Format属性,并修改它
我前面已经提到了,DTPicker控件起始将日期值分为“年月日时分秒”6个部分,编辑时只负责修改format中相关的部分,其它部分保留原值不变。 比如默认情况下只编辑“年月日”部分,下面的代码可以看出无论如何编辑,“时分秒”部分是不变的。 Option ExplicitPrivate Sub DTPicker1_Change() Debug.Print DTPicker1.Value End SubPrivate Sub Form_Load() DTPicker1.Value = Now() Debug.Print DTPicker1.Value End Sub 所以最好是一开始就保证“时分秒”均为0,要么用我在前面提到的保证字段值“时分秒”为0,要么如下用 DateValue 函数 Option ExplicitPrivate Sub DTPicker1_Change() Debug.Print DTPicker1.Value End SubPrivate Sub Form_Load() DTPicker1.Value = DateValue(Now()) Debug.Print DTPicker1.Value End Sub
select convert(varchar(10),日期字段,120) as 日期 from 表名
2,清空表用如下语句:
truncate table 表名
可以用 DateValue 函数丢弃时分秒部分;当然最好的方式就是从一开始就不要产生时分秒,SQL Server 中用下面的方式取没有时分秒的日期
Convert(datetime, Convert(char(8),GetDate(),112), 112)
查看DTPicker的Format属性,并修改它
比如默认情况下只编辑“年月日”部分,下面的代码可以看出无论如何编辑,“时分秒”部分是不变的。
Option ExplicitPrivate Sub DTPicker1_Change()
Debug.Print DTPicker1.Value
End SubPrivate Sub Form_Load()
DTPicker1.Value = Now()
Debug.Print DTPicker1.Value
End Sub
所以最好是一开始就保证“时分秒”均为0,要么用我在前面提到的保证字段值“时分秒”为0,要么如下用 DateValue 函数
Option ExplicitPrivate Sub DTPicker1_Change()
Debug.Print DTPicker1.Value
End SubPrivate Sub Form_Load()
DTPicker1.Value = DateValue(Now())
Debug.Print DTPicker1.Value
End Sub