Excel VBA Adding 1 hour to a date / time string

Question

I have a text string that looks like this: "06/10/15 4:53pm". I want to add 1 hour (60 minutes exactly) to the text string looks like this: "06/10/15 5:53pm"

Any suggestions would be appreciated.

Answer 1

Convert it to a date, add an hour, and convert back to string using format

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

Reference:

• VBA CDate Function
• VBA DateAdd Function
• VBA Format Function

Answer 2

不需要VBA ...假设上方（06/10/15 4:53 pm）的时间值在单元格A1中，则您要查找的公式为：

=A1+TIME(1,0,0)

Answer 3

Since you asked for a VBA solution:

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

MsgBox CDate(s) + 1 / 24

Answer 4

For operations with date and time in VBA is DateAdd function. You can find how to use it in this link: https://www.techonthenet.com/excel/formulas/dateadd.php