vba基础5 时间处理

Posted 2020-12-17 fangyz

一 获取时间

vba系统内置了很多获取当前时间的函数，代码如下所示。

其中出现了VBA.Time和VBA.Time$。通过调试可以发现VBA.Time返回的数据类型是Variant/Date，VBA.Time$返回的是Variant/String，内容是一样的。

‘获取当前的时间信息
Dim a
a = VBA.Now         ‘2020/7/18 23:02:37
a = VBA.Date         ‘2020/7/18
a = VBA.Time        ‘22:59:51
a = VBA.Time$      ‘22:59:53
a = VBA.Timer       ‘83122.03。single类型，返回从今天0点到现在的秒数
‘获取当前时间的(年、月、日) 和 (时、分、秒)
a = VBA.Year(VBA.Date) & " " & VBA.Month(VBA.Date) & " " & VBA.Day(VBA.Date)              ‘2020 7 18
a = VBA.Hour(VBA.Time) & " " & VBA.Minute(VBA.Time) & " " & VBA.Second(VBA.Time)    ‘23 10 27
‘获取当前日期是这个星期的第几天
a = Weekday(VBA.Date)   ‘7  注意这里是以星期天作为第一天，因此今天是星期六，但使用WeekDay得到的是7。