czjt1234

13行，用&连接字符串为日期格式，可用Msgbox date1查看

CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别，则不能判断年、月、日的正确顺序。另外，如果长日期格式包含表示星期几的字符串，则不能被识别。

下面的示例使用 CDate 函数将字符串转换成日期类型。一般不推荐使用硬件译码日期和时间作为字符串（下面的例子已体现）。而使用时间和日期文字 (如 #10/19/1962#, #4:45:23 PM#)。

MyDate = "October 19, 1962"        ' 定义日期。
MyShortDate = CDate(MyDate)        ' 转换为日期数据类型。
MyTime = "4:35:47 PM"              ' 定义时间。
MyShortTime = CDate(MyTime)        ' 转换为日期数据类型。

如果不是正确的日期或日期格式，则产生错误
err对象是vbs内置的错误对象
产生错误后，err.number属性值就不为0了，为错误代码