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

参考：

{{3}}

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

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

4 个答案: