vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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.

Diese Seite wurde bereits 9.729 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel