日期类型穿梭岁月 时间函数算尽光阴
主要内容：
一、Date函数，存放表示时间的数据，可以精确到秒
举例日期函数表达方式：
Sub demo()
Dim d As Date
d = #4/6/2020 8:42:15 PM#
MsgBox d
End Sub
1.括上#号，说明中间是一个日期表达式，而不是其他表达式。
2.日期表示格式月/日/年
二、三类时间函数
第一类:获取系统时间
1.Date函数
获取当前系统日期（年/月/日）
2.Time函数
获取当前系统书剑（时/分/秒）
3.Now函数
获取系统完整时间
第二类：时间数据解析
1.Year(d):返回时间d中的年份数字；
2.Mouth(d):返回时间d中的月份数字；
3.Day(d):返回时间d中的当月对日；
4.Weekday(d)：返回时间d是当周第几天
5.Hour(d):返回时间d是当日第几个小时；
6.Minute(d):返回时间d是该小时第几分；
7.Second(d):返回时间d是该分钟第几秒；
举例：
Sub demo()
Dim d As Date, a As Long
d = #4/6/2020 8:42:15 PM#
a = Year(d)
MsgBox a
End Sub
第三类：时间运算函数
1.DateDiff函数
作用：计算两个日期数据之间的时间差
格式：DateDiff（单元，起始时间，截止时间）
单位："yyyy"-年，"m"-月，"q"-季度 "d"-日
"y"-当年积极日，一般运行结果与使用"d"相同
"w"-周（按照时间天数计算，不足7天为0周）
"ww"-周（按照跨周日计算，只要相隔一个周日即为一周）
"h"-小时，"n"-分钟 "s"-秒
示例：DateDiff（"yyyy",#8/3/1996,#3/5/2003#)
2.DateAdd函数
作用：计算一个时间点加上指定时间后的新的时间点。
格式DateAdd（单元，跨越长度，起始时间）
单元："yyyy"-年，"m"-月，"q"-季度 "d"-日
"y"-当年积极日，一般运行结果与使用"d"相同
"w"-周（按照时间天数计算，不足7天为0周）
"ww"-周（按照跨周日计算，只要相隔一个周日即为一周）
示例：DateAdd（"d",500,#5/28/2016#)
三、日期类型本质上是一个Double类型的数字。
0代表1899年12月30日0时0分0秒
整数部分每增减1就是增减1天小数部分0.1代表0.1天，即2.4小时或2小时24分钟。但是小数部分减法运算导致的时间变化比较复杂，请勿轻易使用。
