FUNÇÃO DE CONVERSÃO - CVERR

CVErr

    Função empregada para converter valor numérico ou uma expressão que resulte em um valor numérico para um número de erro especificado pelo usuário (valor Variant com subtipo definido VarType = vbError), esta sintaxe:

CVErr(Expressão)

Onde,

• Expressão: argumento obrigatório, que após avaliado contenha um número capaz de ser avaliado para um código de erro válido. CVErr retornará a expressão “Erro x”, onde x é o código numérico do erro ocorrido.

As seguintes considerações são válidas para a função CVErr:

• Use a função CVErr para criar erros definidos pelo usuário nos seus procedimentos, validando os argumentos recebidos e, na eventualidade de eles estarem errados, retornar um valor de erro desejado, impedindo que o código forneça um erro em tempo de execução.

Exemplo: O exemplo  seguir demonstra como empregar a função Divide() para dividir dois números e, se ocorrer uma divisão por zero, retornar o erro equivalente: 

Function Divide(Numerador, Denominador) as Variant

   If Denominador = 0 Then
   

       Divide = CVErr(11)  ‘Erro divisão por zero, retorna “Erro 11”

   Else

       Divide = Numerador/Denominador
 
   End If

End Function

Até a Próxima!!