Ошибка увеличения даты VBA - PullRequest
Новая
       12

Ошибка увеличения даты VBA

0 голосов
/ 24 марта 2012

Я никогда раньше не занимался VBA, но мой друг попросил помощи, поэтому я работал над его проектом.Я пытаюсь увеличить заданную дату на один день, но получаю ошибку «Требуется объект» в функции DateAdd.Насколько я могу судить, я помещаю объект (firstDate) ...

Введенная дата, по крайней мере для моих целей тестирования, была 12/03/2012 в этом формате.Кажется, что функции Format и CDate работают нормально и разбирают дату.

Вот код, я получаю сообщение об ошибке в строке с DateAdd в нем. 

Sub GetDate()

Dim strDate As String

strDate = InputBox(Prompt:="Enter the first day of the week in dd/mm/yyyy format.", _
      title:="First day of the week", Default:="")

    If strDate = "" Or strDate = vbNullString Then
        Exit Sub
    Else
        Dim firstDate As Date
        firstDate = CDate(Format(strDate, "Short Date"))

        'Add to O and 6 after
        For inc = 0 To 6 Step 1
            Range(Chr(79 + inc) & 1) = firstDate
            firstDate = DateAdd(DateInterval.Day, 1, firstDate)
        Next

    End If
End Sub

Благодарим за любую помощь.

Ответы [ 2 ]

7 голосов
/ 25 марта 2012

Вы просто пытаетесь увеличить на один день, верно? 

firstDate = firstDate + 1

Единица типа Date - один день.Таким образом, добавление 1 добавляет один день.

3 голосов
/ 26 марта 2012

Очень хорошо ...

DateAdd("d", 1, firstDate)

Но: я не так уж и смущен, если кто-нибудь отправит мой комментарий как ответ Я делаю читаю комментарии и ответы. Может быть, потому что у меня есть привычка предлагать ответы в комментариях ...

...