问一个简单有关问题

问一个简单问题
怎么用得到当前时间在小时上减1的时间
比如现在是2007-1-30   16：00：00
我想得到的是2007-1-30   15：00：00
谢谢！

[解决办法]
dim dDate as date ' '原来的时间
dim dDateNew as date ' '新的时间

'请先在这里设置要处理的时间

dDateNew=dateadd( "h ",-1,ddate)
' 'dDateNew当中的时间就是你需要的

以上代码未经测试