Excel VBA添加1小时的日期/时间字符串

Question

我有一个文本字符串，看起来像这样:"06/10/15 4:53pm"。我想添加1小时(确切的60分钟)的文本字符串看起来像这样:"06/10/15 5:53pm"

Answer 1

将其转换为日期，添加小时，并使用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

参考:

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

Answer 2

不需要VBA…假设上述时间值(06/10/15 4:53pm)在单元格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