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 Format Function

Answer 2

Нет VBA требуется ... при условии, значения времени выше (06/10/15 4:53 вечера) находится в ячейке 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