vb计算输入日期至今日的天数.能实现1000年到系统时间的天数,输入1000年之前会计算错误。