Befehlsreferenz - Umwandlungsfunktionen: CVErr-Funktion

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Gibt eine benutzerdefinierte Fehlernummer vom Datentyp Variant zurück.

Syntax:

CVErr (Fehlernummer)

Parameter:

Fehlernummer

(Long) Beliebige gültige Fehlernummer

Mit der CVErr-Funktion kann man beliebige benutzerdefinierte Fehler auslösen. Dies ist z.B. immer dann sinnvoll, wenn einer Prozedur falsche oder ungültige Werte übergeben wurden.

Beispiel:

' Funktion, um das Alter zu berechnen
 
Public Function AlterBerechnen(ByVal sGebDatum As String)
  ' Prüfen, ob sGebDatum ein Datum entspricht
  If Not IsDate(sGebDatum) Then
    ' kein gültiges Datum - benutzerdefineirten Fehler auslösen
    AlterBerechnen = CVErr(vbError + 1)
  Else
    ' ...
  End If
End Function
 
 
 
' Aufruf der Funktion
Dim lAlter As Variant
 
lAlter = AlterBerechnen("-1.09.2002")
If IsError(lAlter) Then
  MsgBox "Fehler"
End If

Wichtig!
Der Rückgabewert der CVErr-Funktion muss immer einer Variablen vom Datentyp Variant zugewiesen werden oder über CInt bzw. CLng in den Datentyp Integer / Long umgewandelt werden. Mit der IsError-Funktion kann geprüft werden, ob es sich um einen Fehler handelt.