如何改變VB的時間顯示

Question

我目前使用此不同的日期，

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Sheets("Sheet1").Range("K1").Value = Format(Now(), "mm-dd-yyyy") 
End Sub 

以打印最後保存到我的電子表格。然而，我想要做的是讓它打印12小時前的日期。這是否需要對代碼或其他東西進行簡單的更改？

Answer 1

就像pnuts所評論的那樣，您應該從Now減去小時。
嘗試：

Sheets("Sheet1").Range("K1").Value = Format(Now - TimeValue("12:00"), "mm-dd-yyyy") 

Answer 2

我會使用DateAdd函數：

Sheets("Sheet1").Range("K1").Value = DateAdd("h", -12, Now())