Funzione CVErr

Restituisce un errore di variante del sottotipo contenente un numero di errore specificato dall'utente.

Sintassi

CVErr(errornumber)

L'argomento numero errore richiesto è qualsiasi numero di errore valido.

Osservazioni

Utilizzare la funzione CVErr per creare errori definiti dall'utente nelle procedure create dall'utente. Ad esempio, se si crea una funzione che accetta diversi argomenti e normalmente restituisce una stringa, è possibile fare in modo che la funzione valuti gli argomenti di input per assicurarsi che siano compresi nell'intervallo accettabile. In caso contrario, è probabile che la funzione non restituisca l'output previsto. In questo caso, CVErr consente di restituire un numero di errore che indica l'azione da eseguire.

Si noti che la conversione implicita di un errore non è consentita. Ad esempio, non è possibile assegnare direttamente il valore restituito di CVErr a una variabile che non è una Variant. Tuttavia, è possibile eseguire una conversione esplicita (usando CInt, CDbl e così via) del valore restituito da CVErr e assegnarlo a una variabile del tipo di dati appropriato.

Esempio

In questo esempio viene utilizzata la funzione CVErr per restituire un oggetto Variant il cui VarType è vbError (10). La funzione CalculateDouble definita dall'utente restituisce un errore se l'argomento passato non è un numero. È possibile utilizzare CVErr per restituire errori definiti dall'utente da procedure definite dall'utente o per rinviare la gestione di un errore di runtime. Usare la funzione IsError per verificare se il valore rappresenta un errore.

' Call CalculateDouble with an error-producing argument.
Sub Test()
    Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
    If IsNumeric(Number) Then
        CalculateDouble = Number * 2    ' Return result.
    Else
        CalculateDouble = CVErr(2001)    ' Return a user-defined error 
    End If    ' number.
End Function