Dim a As String
创新互联公司提供成都网站建设、网站设计、网页设计，成都品牌网站建设，广告投放等致力于企业网站建设与公司网站制作，10余年的网站开发和建站经验,助力企业信息化建设，成功案例突破上1000家,是您实现网站建设的好选择.
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函数，这个函数是用于把字符型变量转换成日期型变量，
字符型变量（本例中的a）如果不是标准的日期格式，请先用字符串函数处理成标准日期格式再用CDate函数进行转换，否则会报错
字符拼凑的问题，如下：
##中间放的是常量
Dim dd As Date
dd = CDate("#" Month(Now()) "/ 5 / " Year(Now()) "#")
错误提示不说得很清楚么，类型不对。
你操作有数据的记录时，有日期的那个字段它是有数据的，直接可以取出date型数据，而如果为空的话，那就不是date型数据了，它就是一个null了，是空的，null和date是两回事。所以你在写程序的时候，要检查一下，字段是不是null,如果是null那就不能往外读数，不是null，那就直接往外读。
# #里面必须是直接数，不能是变量
dim dd as date
dd=dateserial(year(now),month(now),5)