VBA-获取月份和年份从今天日期

Question

我试图获得今天的VBA日期的年份和月份，我曾尝试和下面是我的代码：

Sub automation() 

Dim wsheet As Worksheet 
Dim month As Integer 
Dim year As Integer 

Set wsheet = Application.Workbooks("try").Worksheets("try") 

month = Application.WorksheetFunction.month(Date) 

year = Application.WorksheetFunction.year(Date) 



End Sub 

我不知道在哪里出错了，谁能帮忙？ 如果今天的日期是2017年5月15日，我的预期产出为5月份和2017年。谢谢！

Answer 1

dim this as date 
this = Format(Date(), "yyyy") 
this = Format(Date(), "mm") 

Answer 2

改变你这样的代码：

Option Explicit 

Sub automation() 

    Dim iMonth As Long 
    Dim iYear As Long 

    iMonth = month(Date) 
    iYear = year(Date) 

    Debug.Print iMonth; iYear 

End Sub 

Month和Year是VBA.DateTime的功能，不使用它们的变量名。

一般来说，Application.WorksheetFunction不具备的功能，涉及到当前的日期，而相比之下，VBA.DateTime.Month或VBA.DateTime.Year（或至少我没有发现）任何XL资源库中

Answer 3

你可能有一些问题，因为你已经遮蔽了一些现有的其他功能Month和Year与变量名month和year。因此，使用不同的变量名：

Dim m As Integer 
Dim y As Integer 

，然后或者：

m = DatePart("m", Date) 
y = DatePart("yyyy", Date) 

或者：

m = month(Date) 
y = year(Date) 

在我的Excel 2010（2013年未测试），同时Month是一个工作表函数，由于某种原因它不会暴露于VBA。如果你想使用这些的WorksheetFunction例如，你可以技术上做到使用它的Application.Evaluate方法，像这样：

m = Evaluate("MONTH(""" & Date & """)") 
y = Evaluate("YEAR(""" & Date & """)") 

内置VBA.DateTime.Month和VBA.DateTime.Year功能，但是，都可以，这是什么将在上面的第二个例子中使用。

如果必须由于某种原因保留了month和year变量名，那么你需要完全限定的函数调用，以避免错误：

month = VBA.DateTime.Month(Date) 
year = VBA.DateTime.Year(Date)