Ошибка при вызове функции dateadd

Пожалуйста, помогите мне в этом. Я запускаю тот же код на другом компьютере, и они не возвращают ошибки. Но на моем компьютере это все еще всплывает.Ошибка при вызове функции dateadd

EDIT:

Код:

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

Выход:

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

BTW. Компьютер, который я использовал, - это виртуальная машина Windows 7.

EDIT 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

BTW: Вы можете удалить() в вызове MsgBox:

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

Я позволяю те остаться в моем тесте, чтобы увидеть, если это могло вызвать проблемы, но он работает с ними, а

Вы уверены, что вы используете VB6?

Вы также можете попытаться создать установочный пакет на машине, где он работает, а затем установить его на другой компьютер. Если он тогда работает, то, вероятно, некоторые библиотеки отсутствуют

источник

2015-05-05 12:23:14 Hrqls

Привет, да, я использую VB6 SP6, я пытаюсь создать exe-файл напрямую и не нажимать Ctrl + F5, и он успешно скомпилирован. Ошибок не возникает. Но все же, когда я запускаю код в среде IDE, ошибка по-прежнему сохраняется. Я думаю, что вы правы в отношении некоторых библиотек, которые отсутствуют, но я не уверен, что файл/s отсутствует/отсутствует. –

попробуйте переустановить среду разработки VB6 .. сначала удалите VB6 IDE, а затем установите ее снова – Hrqls

если вы установили запуск VB6.exe как режим XP3, снимите флажок, тогда все будет в порядке. Даже вы не делали выше, он будет работать только в режиме IDE, но не после компиляции в качестве EXE.

источник

2018-01-20 03:38:38 Wang

Ошибка при вызове функции dateadd

ответ

Смежные вопросы