vba中如何获取当前日期

在VBA（Visual Basic for Applications）中，你可以使用`Date`函数来获取当前的日期。以下是一个简单的例子，展示如何在VBA代码中获取当前日期并将其赋值给一个变量：

```vba

Sub GetTheCurrentDate()

Dim currentDate As Date

currentDate = Date

MsgBox "当前日期是: " & currentDate

End Sub

```

在这个例子中，`GetTheCurrentDate`是一个子程序（Sub），它声明了一个名为`currentDate`的`Date`类型变量，然后使用`Date`函数将当前日期赋值给这个变量。使用`MsgBox`函数弹出一个消息框，显示当前日期。

要运行这个子程序，你可以在Excel的VBA编辑器中插入它，然后运行`GetTheCurrentDate`过程。你可以通过按下`Alt + F11`打开VBA编辑器，然后插入一个新模块，并将上述代码粘贴进去。之后，你可以通过按下`F5`键或者通过菜单栏的“运行”->“运行子程序/用户定义的函数”来运行这个子程序。