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

我会使用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")

如何更改vb中显示不同日期的时间

2 个答案: