Dim d As Date
d = #2016-12-28 18:17:23#
或
d = CDate("2016-12-28 18:17:23")
或
d = DateSerial(2016, 12, 28)
或
d = Now '当前日期时间
d = Date '当前日期
d = Time '当前时间
d = Date + 1 '明天
d = Date + 2 '后天
d = Date - 1 '昨天
d = DateAdd("m", 3, Date) '三个月后
d = DateAdd("d", -10, Now) '10天前
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024