Question

请帮我解决这个问题。我在其他计算机上运行相同的代码，他们没有返回任何错误。但在我的电脑上，这仍然会弹出。

编辑：

代码：

Private Sub Form_Load()
    Msgbox (DateAdd("d",-1,Date))
End Sub

输出：

Run-time error '5';
Invalid procedure call or argument

顺便说一句。我使用的计算机是Windows 7 VM。

编辑2：

我设法通过编辑参数但输出错误来运行代码。

代码：

Private Sub Form_Load()
    Msgbox (DateAdd("dddd",-1,Date))
End Sub

输出：

5/5/2014

Answer 1

如果你将VB6.exe设置为XP3模式，取消选中它，那就没问题了。即使你上面没做过，它只会在IDE模式下开心，但不会在之后编译为EXE。

Answer 2

以下代码在我的Windows7 64位计算机上的VB6没有任何问题：

Option Explicit

Private Sub Command1_Click()
  Dim datNow As Date
  Dim datYesterday As Date
  datNow = Now
  datYesterday = DateAdd("d", -1, datNow)
  Print "Yesterday = " & CStr(datYesterday)
End Sub

Private Sub Form_Load()
  MsgBox (DateAdd("d", -1, Now))
End Sub

顺便说一下：你可以删除MsgBox调用中的（）：

  MsgBox DateAdd("d", -1, Now)

我让那些留在我的测试中看看是否可能导致问题，但它也适用于他们

您确定使用的是VB6吗？

您还可以尝试在其工作的计算机上创建安装包，然后将其安装在另一台计算机上。如果它可以工作，那么可能有一些lib缺失

调用dateadd函数时出错

2 个答案: