Funktsioon CVErr

Tagastab variandi alamtüübist Tõrge , mis sisaldab kasutaja määratud tõrkenumbrit.

Süntaks

CVErr(tõrkenumber)

Nõutav tõrkenumbriargument on mis tahes kehtiv tõrkenumber.

Kommentaarid

Funktsiooni CVErr abil saate luua kasutaja määratud tõrkeid kasutaja loodud toimingute korral. Näiteks kui koostate funktsiooni, mis aktsepteerib mitut argumenti ning tagastab üldjuhul stringi, saate lasta funktsioonil sisendargumendid arvutada tagamaks, et need on sobivas vahemikus. Kui sisendargumendid pole sobivas vahemikus, ei tagasta funktsioon tõenäoliselt eeldatud väärtust. Sellisel juhul võimaldab funktsioon CVErr tagastada tõrkenumbri, mille järgi saate teada, mida edasi teha.

Errori peitteisendamine pole lubatud. Näiteks ei saa funktsiooni CVErr tagastusväärtust otse määrata muutujale, mis pole Variant. Siiski saate funktsiooni CVErr tagastatud väärtuse otse teisendada (kasutades funktsiooni CInt, CDbl jne) ja määrata selle sobiva andmetüübiga muutujale.

Näide

Selles näiteks kasutatakse funktsiooni CVErr, et tagastada Variant, mille VarType on vbError (10). Kasutaja määratletud funktsioon CalculateDouble tagastab tõrke, kui sellele edastatud argument pole arv. Funktsiooni CVErr saate kasutada selleks, et tagastada kasutaja määratletud toimingute korral kasutaja määratletud tõrkeid või viivitada käitusajatõrke töötlemisega. Selleks et kontrollida, kas väärtus on tõrge, saate kasutada funktsiooni IsError.

' 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