VBA 43 日期与时间

1，返回当前日期，时间

' 1, 返回当前日期，时间
Debug.Print "当前日期：" & Date
Debug.Print "当前时间：" & Time
Debug.Print "当前日期和时间：" & Now

 

2，格式化显示日期

' 2格式化显示日期
Debug.Print vbNewLine & "yyyy-mm-dd格式：" & Format(Now, "yyyy-mm-dd")  '2022-12-29
Debug.Print "yyyy年mm月dd日格式：" & Format(Now, "yyyy年mm月dd日")   '2022年12月29日
Debug.Print "yyyy年mm月dd日 h:mm:ss格式：" & Format(Now, "yyyy年mm月dd日 h:mm:ss")   '2022年12月29日 21:42:23
Debug.Print "d-mmm-yy格式：" & Format(Now, "d-mmm-yy")   '29-Dec-22
Debug.Print "d-mmmm-yy格式：" & Format(Now, "d-mmmm-yy")  '29-December-22
Debug.Print "aaaa格式：" & Format(Now, "aaaa")  '星期四
Debug.Print "ddd格式：" & Format(Now, "ddd")  'Thu
Debug.Print "dddd格式：" & Format(Now, "dddd")  'Thursday

 

3，根据给定的年月日 返回日期

' 3 根据给定的年月日 返回日期
Debug.Print vbNewLine & VBA.DateSerial(2011, 10, 1)

 

4，根据给定的时分秒返回时间

'4根据给定的时分秒返回时间
Debug.Print vbNewLine & VBA.TimeSerial(1, 2, 1)

 

5，返回日期 时间

Dim d
d = "2022-12-29 21:49:26"

'下面的函数前可以带上VBA.
Debug.Print Year(d) & "年"
Debug.Print Month(d) & "月"
Debug.Print Day(d) & "日"
Debug.Print Hour(d) & "时"
Debug.Print Minute(d) & "分"
Debug.Print VBA.Minute(d) & "分"
Debug.Print VBA.Second(d) & "秒"