Office 365 中的 VBA 日期

【问题标题】：VBA Date in Office 365Office 365 中的 VBA 日期
【发布时间】：2021-01-12 17:32:06
【问题描述】：

我在 VBA Office 2016 32 位中创建了项目，现在我正在尝试在 Office 365 32 位（WIN10）中运行它，当然我遇到了 DataPicker 问题（已解决），但现在在运行代码期间出现错误“编译错误：找不到项目或库”。问题是这样的：

currentMonth = Month(Date)

你知道为什么“日期”不能显示今天的日期吗？在 Excel 2016 中没有问题。

【问题讨论】：

试试Date()。实际上它被定义为一个函数，因此“应该”用() 调用。也许这会有所帮助。

标签： excel vba date office365

【解决方案1】：

此处未定义日期。是在别处定义的吗？似乎日期已被重新定义。

此代码也适用于早期版本：

Option Explicit

Sub test()
  Dim theDate as Date
  Dim currentMonth As Integer

  theDate = Now()
  currentMonth = Month(theDate)
  Debug.Print currentMonth
End Sub

【讨论】：

它有效！谢谢！
这不是解决方案。你的表达通常会起作用。如果 Date 应该“在别处定义”，那就更正吧。
解决办法是Now()
就您的问题而言，Now() 只是一种解决方法，而不是解决方案。