------解决方案--------------------
简单示例: For i = #6/14/2009# To #7/14/2009# ff1 = Format(i & " 01:00:00", "yyyy-mm-dd hh:mm:ss") MsgBox ff1
Next
End Sub 自己动手做一下
------解决方案--------------------
For i = #6/14/2009# To #7/14/2009# hh = Format(i & " 01:00:00", "yyyy-mm-dd hh:mm:ss") For j = 1 To 24 hh = DateAdd("h", 1, hh) MsgBox hh Next Next