案例问题 - DateAdd 函数 VBA

Question

带有 DateAdd 功能的案例。

这是我的代码

Select Case Range("O7").Value

    Case "CST"
         Sheet1.Cells(yz, 11).Value = DateAdd("hh", -6, Sheet1.Cells(yz, 11))
    Case "EST"
         Sheet1.Cells(yz, 11).Value = DateAdd("hh", -5, Sheet1.Cells(yz, 11))
    Case "MST"
         Sheet1.Cells(yz, 11).Value = DateAdd("hh", -7, Sheet1.Cells(yz, 11))
    Case "PST"
         Sheet1.Cells(yz, 11).Value = DateAdd("hh", -8, Sheet1.Cells(yz, 11))
    Case Else
         Range(Sheet1.Cells(yz, 11)).Value = Sheet1.Cells(yz, 11)

End Select

尝试操作已经存在的日期并将小时从他们的时区更改为 UTC。关于如何修复我的代码的想法？ “O7”包含 CST、MST、EST、PST 的列表。 YZ, 11 是当前时区的日期。

Answer 1

DateAdd() 的正确语法只是用一个 "h" 来表示小时。 另外，您的最后一行是多余的...删除Range(Sheet1.Cells(yz, 11)).Value = Sheet1.Cells(yz, 11)