如何表达上一小时，上一分钟，上一秒钟呢

Question

上一小时我表示为format(now-1,"hh:mm:ss"),可时间与format(now,"hh:mm:ss")一样，我怎样表达上一小时时间，上一分钟时间，上一秒钟时间

Answer 1

Private Sub Command1_Click()
    Dim d As Date
    d = Now
    Debug.Print d
    Debug.Print DateAdd("D", -1, d) '日
    Debug.Print DateAdd("H", -1, d) '时
    Debug.Print DateAdd("N", -1, d) '分
    Debug.Print DateAdd("S", -1, d) '秒
End Sub

Answer 2

楼上正解。
用DateAdd进行时间的计算。now不是一个数值而是一个浮点数，如何减呢。
请用DateAdd进行计算吧。

Answer 3

now-1,按樓主的話來說,指前一天時間