Question

我之前从未做过VBA，但朋友已经请求帮助，所以我一直在研究他的项目。我正在尝试将给定日期增加一天，但我在DateAdd函数中收到“Object Required”错误。据我所知，我正在放入一个物体（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

感谢任何帮助。

Answer 1

你只是试着增加一天，对吗？

firstDate = firstDate + 1

Date类型的单位是一天。所以添加1会增加一天。

Answer 2

很好......

DateAdd("d", 1, firstDate)

但是：如果有人将我的评论作为答案重新发布，那我就不会感到很沮丧。我做阅读评论和答案。也许是因为我有这种习惯在评论中提出答案......

VBA递增日期错误

2 个答案: