如何改变VB中的时间显示不同的date

我目前正在使用这个，

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

为了打印最后保存到我的电子表格。 然而，我想要做的是从12小时前打印date。 这是否需要对代码或其他东西进行简单的更改？

Answer 1

我会使用DateAdd函数：

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

Answer 2

就像pnuts所评论的那样，你应该从Now减去小时数。
尝试：

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