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.