字符串与日期相互转换
VB使用 CDate 函数将字符串转换成 Date类型
s1 = "2000-01-01"
d1 = Cdate(s1)
VB使用 format 函数将日期转换成字符串类型
d1 = format(now,"yyyy-MM-dd")
获取年月日时分秒
获取一个日期的年月日时分秒，假设变量d1为Date类型
Year(d1) 获取年份
Month(d1) 获取月份，获取到的月份第一位不带0
Day(d1) 获取日期，第一位不带0
Hour(Now)
Minute(Now)
Second(Now)
日期加减计算
用 DateAdd 函数可实现日期、时间的加减
用法：DateAdd(nStr, S, nTime)
nTime ：表示基准时间，在该时间上进行加减
S ：表示加上的时间、日期数值，负数表示减去
nStr ：表示要加减的项目。共6个（年：y 月：m 日：d 时：h 分：n 秒：s）
nStr 参数可以有以下值：
-----------------
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
------------------------
如果要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前，则会产生错误。
举例：
比如dateadd(＂yyyy＂,1,now（)），在今天的日期上加上一年。
比如dateadd(＂yyyy＂,-1,now（)），在今天的日期上减去一年。
比如dateadd(＂d＂,1,now（)），在今天的日期上加上一天。
比如dateadd(＂d＂,-1,now（)），在今天的日期上减去一天。
比如dateadd(＂m＂,1,now（)），在今天的日期上加上一月。
比如dateadd(＂d＂,-1,now（)），在今天的日期上减去一月。