Question

用vb编写程序,要求输入一个日期,能输出下一天的日期

Answer 1

Private Sub Command1_Click()
Dim d As Date
d = InputBox("输入一个日期") '输入标准2011-1-1
MsgBox DateAdd("d", 1, d)
End Sub

Answer 2

Private Sub Command1_Click()
Dim d1 As Date
On Error GoTo MyErrNum
d1 = CDate(InputBox("输入一个日期"))
Print d1 + 1
Exit Sub
MyErrNum:
MsgBox "无效的日期！"

End Sub