dateadd not working

[smakatura]

I want to have a user enter a date, and then have the system tell the user the next day's date.

Dim rptdate As Date
 
    rptdate = Application.InputBox("Enter date.", Title:="Date Entry", Type:=1)
 
    MsgBox (DateAdd(d, 1, rptdate))

the msgbox line does not want to work but not sure how to fix it..probably an easy fix.

 

[p45cal]

dateadd wants a string as the first argument, so the trite answer is, as long as the variable d contains a valid string it should work, but you probably want:
dateadd("d",1,rptdate)

 

[pedie]

try

[/FONT]
[FONT=Courier New]Sub test2()
Dim rptdate As Date
rptdate = Application.InputBox("Enter date.", Title:="Date Entry", Type:=1)
MsgBox "The next day will be " & Format(rptdate + 1, "DDDD") & vbNewLine & "Date: " & rptdate + 1, vbInformation, "Answer"
End Sub

 

[smakatura]

using

msgbox (rptdate +1)

worked perfectly and did not cause the confusion of the adddate option. if I wanted to do more than just add one day to the date I would exlplore more options.