Добавьте x количество дней к дате с помощью VBA в Excel
Я пытаюсь добавить x количество дней к длинной дате с помощью всплывающего окна.
Public Function AskForDeadlinePlus4() As String
Dim strUserResponse As String
strUserResponse = InputBox("Enter Validuntil Date: Add # of Days To Survey end date")
strUserResponse = FormatDateTime(strUserResponse + I2, vbLongDate)
ActiveSheet.Cells(2, 10).Value = strUserResponse 'the 2, 10 is the cell reference for J2 - row 2, column 10.
End Function
Где дата окончания опроса в ячейке I2.
Когда я запускаю это, я получаю (Гугл, как это сделать, я утомляю)
4 + I2
(гдеI2 = Friday, April 05, 2013
) >> Wednesday, January 03, 1900
конечно мне нужноTuesday, April 09, 2013
Спасибо