怎么显示系统整点时间，和下一个小时的时间

如何显示系统整点时间，和下一个小时的时间？
我想定义两个时间，一个当前系统时间的整点时间，另一个是系统时间的下一个整点时间。、
例如现在的系统是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