Excel VBA在日期/時間字符串中添加1小時

Question

我有一個看起來像這樣的文本字符串：“ 06/10/15 4:53 pm”。 我想在文本字符串中添加1小時（准確地說是60分鍾），如下所示：“ 06/10/15 5:53 pm”

任何建議，將不勝感激。

Answer 1

將其轉換為日期，添加一個小時，然后使用格式轉換回字符串

Private Sub TestIt()

    MsgBox AddHour("06/10/15 4:53pm")

End Sub

Public Function AddHour(ByVal sTime As String) As String
    Dim dt As Date

    dt = CDate(sTime)
    dt = DateAdd("h", 1, dt)

    AddHour = Format(dt, "mm/dd/yy h:nnam/pm")

End Function

參考：

• VBA CDate功能
• VBA DateAdd功能
• VBA格式功能

Answer 2

不需要VBA ...假設上方（06/10/15 4:53 pm）的時間值在單元格A1中，則您要查找的公式為：

=A1+TIME(1,0,0)

Answer 3

由於您要求使用VBA解決方案：

s = "06/10/15 4:53pm"

MsgBox CDate(s) + 1 / 24

Answer 4

對於VBA中具有日期和時間的操作，請使用DateAdd函數。 您可以在此鏈接中找到如何使用它： https : //www.techonthenet.com/excel/formulas/dateadd.php