Подскажите, как задать значение пользовательской функции при несоблюдении условия?
Есть 2 моих корявых кода. Первый работает, второй нет.
Не могу понять, где во втором ошибка
Первый
Второй
Есть 2 моих корявых кода. Первый работает, второй нет.
Не могу понять, где во втором ошибка
Первый
Код |
---|
Function КОД_ПАРТИИ(Код_номенклатуры, Дата_производства) Dim m As String Dim y As String Dim d As String If Код_номенклатуры = 0 Then КОД_ПАРТИИ = "Введите код номенклатуры!" Exit Function ElseIf Дата_производства = 0 Then КОД_ПАРТИИ = "Введите дату!" Exit Function End If If Month(Дата_производства) = 1 Then m = "R" End If If Year(Дата_производства) = 2019 Then y = "X" End If If Day(Дата_производства) = 1 Then d = "R" End If КОД_ПАРТИИ = m & y & d End Function |
Второй
Код |
---|
Function TEST1(A, B) Dim iFullName As String iFullName = "C:\Program Files\1234.jpg" If Dir(iFullName) = "" Then TEST1 = "ffgg" Exit Function Else TEST1 = A & B End If End Function |
Если файл 1234.jpg есть по указанному пути, все работает, функция выдает верный ответ.
Если файла нет, то функция выдает ошибку #ЗНАЧ!