我想定义两个时间，一个当前系统时间的整点时间，另一个是系统时间的下一个整点时间。、
例如现在的系统是2009-9-18 10:16:53
我想定义这样两个时间：
qdate1=2009-9-18 10:00:00
qdate2=2009-9-18 11:00:00
------解决方案--------------------------------------------------------
- VBScript code
Dim qdate1, qdate2qdate1 = 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