1. 获取系统时间
常见的三个获取系统时间的方式:
- Date 获取当前系统时间的年月日
- Time 获取当前系统时间的时分秒
- Now 获取当前系统时间的年月日和时分秒
Public Sub main()
Debug.Print Date '结果:2022/7/27
Debug.Print Time '结果:15:00:25
Debug.Print Now '结果:2022/7/27 15:00:25
End Sub
2. 更细力度的提取时间
- 从日期中提取年 Year(时间)
- 从日期中提取月 Month(时间)
- 从日期中提取日 Day(时间)
- 从日期中提取时 Hour(时间)
- 从日期中提取分 VBA.Minute(时间)
- 从日期中提取秒 Second(时间)
Public Sub main()
Debug.Print Year(Now) '结果:2022
Debug.Print Month(Now) '结果:7
Debug.Print Day(Now) '结果:27
Debug.Print Hour(Now) '结果:15
Debug.Print VBA.Minute(Now) '结果:4
Debug.Print Second(Now) '结果:20
End Sub
3. 格式化显示日期
格式化日期显示的语法为:Format(时间, 格式)
,常见格式有:
格式 | 描述 |
---|---|
yyyy-mm-dd | 年月日 |
yyyy年mm月dd日 | 中文年月日 |
yyyy年mm月dd日 h:mm:ss | 中文年月日时分秒 |
d-mmm-yy | 英文月份简写 |
d-mmmm-yy | 英文月份 |
aaaa | 中文星期 |
ddd | 英文星期简写 |
dddd | 英文星期 |
示例:
Public Sub main()
Debug.Print Format(Now, "yyyy-mm-dd") '结果:2022-07-27
Debug.Print Format(Now, "yyyy年mm月dd日") '结果:2022年07月27日
Debug.Print Format(Now, "yyyy年mm月dd日 h:mm:ss") '结果:2022年07月27日 15:13:31
Debug.Print Format(Now, "d-mmm-yy") '结果:27-Jul-22
Debug.Print Format(Now, "d-mmmm-yy") '结果:27-July-22
Debug.Print Format(Now, "aaaa") '结果:星期三
Debug.Print Format(Now, "ddd") '结果:Wed
Debug.Print Format(Now, "dddd") '结果:Wednesday
End Sub
3. 日期差计算
日期差计算语法为:DateDiff(时间单位, 时间, 比较的时间)
:
Public Sub main()
Debug.Print DateDiff("d", "2022-07-27", "2022-07-28") '相差几天 结果:1
Debug.Print DateDiff("m", "2022-07-28", "2022-08-28") '相差几月 结果:1
Debug.Print DateDiff("yyyy", "2022-07-28", "2023-07-28") '相差几年 结果:1
Debug.Print DateDiff("q", "2022-07-28", "2022-10-01") '相差几个季度 结果:1
Debug.Print DateDiff("w", "2022-07-28", "2022-08-04") '相差几个七天 结果:1
Debug.Print DateDiff("h", "2022-07-28 15:00", "2022-07-28 16:00") '相差几小时 结果:1
Debug.Print DateDiff("n", "2022-07-28 15:01", "2022-07-28 15:02") '相差几分钟 结果:1
Debug.Print DateDiff("s", "2022-07-28 15:01:00", "2022-07-28 15:01:01") '相差几秒钟 结果:1
End Sub
4. 日期加减
日期加减语法为:DateAdd(单位, 加减的时间, 时间)
,加减的时间为正数就是加,为负数就是减:
Public Sub main()
Debug.Print VBA.DateAdd("d", 10, "2022/07/27 16:00:00") '加十天 结果:2022/8/6 16:00:00
Debug.Print VBA.DateAdd("m", 10, "2022/07/27 16:00:00") '加十个月 结果:2023/5/27 16:00:00
Debug.Print VBA.DateAdd("yyyy", 10, "2022/07/27 16:00:00") '加十年 结果:2032/7/27 16:00:00
Debug.Print VBA.DateAdd("yyyy", -10, "2022/07/27 16:00:00") '减十天 结果:2012/7/27 16:00:00
Debug.Print VBA.DateAdd("h", 10, "2022/07/27 16:00:00") '加十小时 结果:2022/7/28 2:00:00
Debug.Print VBA.DateAdd("n", 10, "2022/07/27 16:00:00") '加十分钟 结果:2022/7/27 16:10:00
Debug.Print VBA.DateAdd("s", 10, "2022/07/27 16:00:00") '加十秒钟 结果:2022/7/27 16:00:10
End Sub
5. 时间序列化
Public Sub main()
Debug.Print VBA.DateSerial(2022, 7, 27) '结果:2022/7/27
Debug.Print VBA.TimeSerial(16, 1, 2) '结果:16:01:02
End Sub