如何使用Vba获取当前年份

使用VBA获取当前年份，可以使用Date函数。Date函数返回当前日期和时间，可以通过Year函数提取年份。以下是一个简单的示例：

Sub GetCurrentYear()
    Dim CurrentYear As Integer
    CurrentYear = Year(Date)
    MsgBox "当前年份是：" & CurrentYear
End Sub

在这个示例中，我们定义了一个名为GetCurrentYear的子程序。在子程序中，我们使用Date函数获取当前日期和时间，并使用Year函数提取年份。然后，我们使用MsgBox函数弹出一个消息框，显示当前年份。

请注意，这个示例是在Microsoft Excel中运行的。如果您在其他应用程序中使用VBA，您可能需要稍微修改代码以适应不同的环境。