调用 dateadd 函数时出错

Question

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

编辑：

代码：

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

以下代码在我的 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 吗？

您也可以尝试在它工作的机器上创建一个安装包，然后在另一台机器上安装它。如果它能正常工作，那么可能缺少一些库

Answer 2

如果你把VB6.exe运行设置为XP3模式，取消勾选就OK了。即使您没有执行上述操作，它也只会在 IDE 模式下发生，但不会发生在之后编译为 EXE.

调用 dateadd 函数时出错

Error calling dateadd function

vb6

function

dateadd

windows-7