vba - Excel VBA 将 1 小时添加到日期/时间字符串

Question

我有一个如下所示的文本字符串:“06/10/15 4:53pm”。我想在文本字符串中添加 1 小时(正好 60 分钟)，如下所示:“06/10/15 5:53pm”

如有任何建议，我们将不胜感激。

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 Function
• VBA DateAdd Function
• VBA Format Function