Функция

CVErr

Синтаксис

CVErr(expression)

Возвращает значение типа Variant с подтипом Error, содержащее код ошибки, указанный пользователем.

Параметры

Замечания

Функция CVErr применяется для создания ошибок, определяемых пользователем, в создаваемых пользователем процедурах. Например, при создании функции, которая принимает несколько аргументов и обычно возвращает строку, имеется возможность проверить, что введенные аргументы попадают в допустимый диапазон значений. Если это не так, весьма вероятно, что функция не вернет ожидаемое значение. В этом случае функция CVErr позволяет вернуть код ошибки, чтобы знать, какие действия необходимо предпринять.
Следует отметить, что неявное преобразование значения Error не допускается. Например, не допускается прямое присвоение возвращаемого значения CVErr переменной с типом, отличным от Variant. Однако имеется возможность выполнить явное преобразование (с помощью CInt, CDbl и т.п.) значения, возвращаемого CVErr, и присвоить это значение переменной с соответствующим типом данных.

Пример использования

'в данном примере функция CVErr возвращает значение типа Variant,
'которому соответствует VarType (подтип) vbError (10), определенная
'пользователем функция CalculateDouble возвращает ошибку, если ей
'передан нечисловой аргумент, функцию CVErr можно использовать
'для возврата кодов ошибок, определенных пользователем, из процедур,
'также определенных пользователем, или отложенной обработки ошибок,
'обнаруженных на стадии выполнения, с помощью функции IsError можно
'проверить, является ли значение ошибкой

'вызывает CalculateDouble с недопустимым аргументом
Sub Test()
  Debug.Print CalculateDouble("345.45роберт")
End Sub

'описывает процедуру Function CalculateDouble
Function CalculateDouble(Number)
  If IsNumeric(Number) Then
    CalculateDouble = Number * 2 'возвращает результат
  Else
    CalculateDouble = CVErr(2001) 'возвращает код ошибки,
  End If 'определенный пользователем
End Function

Дополнительная информация

Категория: Системные функции

Еще функции: Command, CVErr, DoEvents, Environ, Error, GetAllSettings, GetSetting, IMEStatus, Shell

Логин:

Пароль:

Регистрация, забыли пароль?