調用dateadd函數時出錯

請幫我解決這個問題。我在其他計算機上運行相同的代碼，並且它們不返回任何錯誤。但在我的電腦上，這仍然彈出。調用dateadd函數時出錯

編輯：

代碼：

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

輸出：

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

BTW。我使用的計算機是Windows 7虛擬機。

編輯2：

我管理由編輯參數但有錯誤的輸出來運行代碼。

代碼：

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

輸出：

5/5/2014

來源

2015-05-05 d. ave.

您的要求非常不清楚，提供更多信息？ – HaveNoDisplayName

我想，但我的帳戶限制我上傳圖像，使我的問題更清晰。 –

你認爲我的虛擬機的設置影響了DateAdd功能嗎？ –

下面的代碼工作沒有任何問題，VB6我的Windows7的64位計算機上：

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？

您也可以嘗試在其工作的機器上創建安裝包，然後將其安裝在其他機器上。如果它然後有效，那麼可能有一些庫丟失

來源

2015-05-05 12:23:14 Hrqls

嗨，是的，我正在使用VB6 SP6，我嘗試直接創建exe文件，而不是按Ctrl + F5，它成功編譯。沒有遇到錯誤。但仍然當我在IDE中運行代碼時，錯誤仍然存在。我認爲你對某些缺失的庫是正確的，但我不確定缺少哪些文件。 –

嘗試重新安裝VB6開發環境..首先卸載VB6 IDE，然後再次安裝它 – Hrqls

如果您將VB6.exe設置爲XP3模式運行，請取消選中它，然後確定。即使你沒有在上面做過，它只會在IDE模式下開啓，但不會在編譯爲EXE後開啓。

來源

2018-01-20 03:38:38 Wang

調用dateadd函數時出錯

回答

相關問題