全民一起VBA提高篇-第四回

    日期类型穿梭岁月 时间函数算尽光阴

主要内容：

一、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分钟。但是小数部分减法运算导致的时间变化比较复杂，请勿轻易使用。