怎样用VB程序编写日历（vb倒计时程序怎么设计）

privatesubcommand1_click()

dimd1asdate

onerrorgotomyerrnum

d1=cdate(inputbox("输入一个日期"))

printd1+1

exitsub

myerrnum:

msgbox"无效的日期！"

endsub