怎么显示系统整点时间，和下一个小时的时间
如何显示系统整点时间，和下一个小时的时间？
我想定义两个时间，一个当前系统时间的整点时间，另一个是系统时间的下一个整点时间。、
例如现在的系统是2009-9-18 10:16:53
我想定义这样两个时间：
qdate1=2009-9-18 10:00:00
qdate2=2009-9-18 11:00:00
------解决方案--------------------
我想定义两个时间，一个当前系统时间的整点时间，另一个是系统时间的下一个整点时间。、
例如现在的系统是2009-9-18 10:16:53
我想定义这样两个时间：
qdate1=2009-9-18 10:00:00
qdate2=2009-9-18 11:00:00
------解决方案--------------------
- VBScript code
Dim qdate1, qdate2
qdate1 = Now()
qdate2 = DateAdd("h", 1, qdate1)
MsgBox qdate1 & vbCrLf & qdate2
------解决方案--------------------
date1 = DateAdd("h", Hour(Now()), Date())
date2 = DateAdd("h", 1, date1)
MsgBox Now() & vbCrLf & date1 & vbCrLf & date2