Befehlsreferenz - Umwandlungsfunktionen: Val-Funktion

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Gibt den numerischen Wert in einer Zeichenfolge am Anfang enthaltener Zahlen zurück (Datentyp Double).

Syntax:

Val (Zeichenfolge)

Parameter:

Zeichenfolge

(Variant / String) beliebiger gültiger Zeichenfolgenausdruck

Beispiel:

Private Sub Command1_Click()
    Dim Wert1
    Dim Wert2
    Dim Wert3
    Dim Wert4
 
    Wert1 = Val("936184")
    ' Liefert 936184
    Wert2 = Val(" 93 61 84")
    ' Liefert 936184, Leerzeichen werden eliminiert
    Wert3 = Val("30 Rosen")
    ' Liefert 30, bis zum ersten nicht als Zahl interpretierbaren
    ' Zeichen wird gelesen
    Wert4 = Val("Nummer 10")
    ' Liefert 0, da die Zeichenfolge nicht mit einer Zahl beginnt
 
    MsgBox Wert1 & vbCrLf & Wert2 & vbCrLf & Wert3 & vbCrLf & Wert4
End Sub