【VBA】日期时间

当前日期：

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 Year(Date)
End Sub

几号：

Sub 测试()
    Debug.Print Date
    Debug.Print Day(Date)
End Sub

  格式化输出日期：

Sub 测试()
    Debug.Print Date
    Debug.Print Format(Date, "YYYYMMDD")
End Sub