如何用excel vba計算時間加減

VBA 的日期以日為基數。
加時要加 時數 / 24
加分要加 分數 / 60 / 24
加秒要加 秒數 / 60 / 60 / 24

試試執行下面的 vba

Sub addtime()

Dim xDate As Date

'現在日期及時間
xDate = Now
MsgBox "現在的日期時間是：" & Chr(13) & Chr(13) & xDate

'假設加5小時30分
MsgBox "5小時30分後的日期時間是：" & Chr(13) & Chr(13) & (xDate + 5 / 24 + 30 / 60 / 24)

'假設減1日3小時
MsgBox "1日3小時前的日期時間是：" & Chr(13) & Chr(13) & xDate - 1 - 3 / 24

End Sub