MS的日期控件怎么添加到工程?在什么地方?怎么对日期控件操作?在Access中能直接保存它的变量吗?
解决方案 »
- 请教界面设计
- 删除文件的奇怪问题
- vb中日期控件是哪个,忘了,第一个说的给分
- 删除单条数据库记录所引起的问题。
- 鼠标隐藏问题,在线等!
- setupFactory 打包vb程序后,进行安装的时候总是提示vb文件out of date,为什么
- vsFlexGrid 控件是否能象DataGrid一样在控件里直接添加记录?请给代码
- VB调用水晶报表进行打印的问题
- 请教高手:Excel ActiveX 组合框控件,其属性选项卡中的名称,如何通过代码修改?
- 当我需要适当延时时,有什么好的办法,让系统在延时时能够做别的事情!
- 如何在MSHFlexGrid表格中进行类似listbox控件的checkbox样式的选择方式??
- 各位高手,救命吧!我有一个很棘手的问题,希望多多帮忙!
DTPicker 控件和monthview控件
包括在微软 windows common controls-2 6.0 sp4 中在保存时格式一下就可以
format(dtp1.value,"yyyy-mm-dd")
拉动滚动条 大约1/2 处选择
MICROSOFT WINDOWS COMMONCONTROLS-2.60
引入.
aa=format(dtp1.value,"yyyy-mm-dd")aa就可以作为变量写如数据库了读出来的时候
aa=format(rs!生日,"yyyy-mm-dd")VB中比较时间,常用datediff函数简单使用,判断当前时间和预定时间差别,单位为秒
Dim aa As Date
aa = CDate("2003-12-11 17:20:39")
If DateDiff("n", Now, aa) = 0 Then
msgbox "时间到啦"
End If
'dtp为Dtpicke控件
Dim dtTemp As Date
dtTemp = Format(dtp.Value, "yyyy-MM-dd") '将变量格式化为'2003-12-19'的形式
cn.Execute "insert into table1(日期字段) select #" & dtTemp & "#" '将日期变量写入Access,如果是写入sqlserver将[#]改为[']''怎么在VB中比较时间的方法?
'DateDiff 函数'
'返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。
'
'语法
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
'
'DateDiff 函数语法中有下列命名参数:
'
'部分 描述
'interval 必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔
'Date1□date2 必要;Variant (Date)。计算中要用到的两个日期。
'Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
'firstweekofyear 可选。指定一年的第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。
'
'设置'Interval 参数的设定值如下:
'
'设置 描述
'yyyy 年
'q 季
'm 月
'Y 一年的日数
'd 日
'w 一周的日数
'ww 周
'h 时
'n 分钟
's 秒'如你要比较'2003-12-13'和'2003-12-16'的大小你可以这样:
If DateDiff("d", "2003-12-16", "2003-12-13") < 0 Then MsgBox "2003-12-13小"
DTPicker 控件和monthview控件
包括在微软 windows common controls-2 6.0 sp4 中
有这方面的例子