当前日期:
Sub 测试() Debug.Print Date End Sub
当前时间:
Sub 测试() Debug.Print Date End Sub
几月:
Sub 测试() Debug.Print Date Debug.Print Month(Date) & "月" End Sub
格式化输出日期:
Sub 测试() Debug.Print Date Debug.Print Format(Date, "YYYYMMDD") End Sub
原文:https://www.cnblogs.com/KMould/p/14286520.html