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

你可能感兴趣的:(全民一起VBA提高篇-第四回)