Funktion Mid und Anweisung Mid

Gibt den angegebenen Teil eines Zeichenkettenausdrucks zurück (Mid-Funktion) oder ersetzt ihn durch eine andere Zeichenkette (Mid-Anweisung).

Syntax:

Mid (Text As String, Anfang As Integer [, Länge As Integer]) oder Mid (Text As String, Anfang As Integer , Länge As Integer, Text As String)

Rückgabewert:

String (only by Function)

Parameter:

Text: Ein beliebiger zu bearbeitender Zeichenkettenausdruck.

Anfang: Integer-Ausdruck, der die Zeichenposition in der Zeichenkette angibt, an welcher der zu ersetzende oder zurückzugebende Zeichenkettenabschnitt anfängt.

Länge: Integer-Ausdruck, der die Anzahl der zu ersetzenden oder zurückzugebenden Zeichen angibt. Der maximal erlaubte Wert ist 65535.

Entfällt bei der Funktion Mid die Angabe zu Länge, werden alle Zeichen ab der angegebenen Position bis zum letzten Zeichen der Zeichenkette ermittelt.

Ist der Längenparameter der Anweisung Mid kleiner als die Länge des zu ersetzenden Textes, so wird der Text auf die angegebene Länge gekürzt.

Text: Die Zeichenkette, durch die der Zeichenkettenabschnitt ersetzt werden soll (Mid-Anweisung).

Fehlercodes:

5 Ungültiger Prozeduraufruf

Beispiel:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

    sInput = InputBox("Geben Sie bitte ein Datum im englischen Format MM-DD-YYYY ein")

    sUS_date = Mid(sInput, 6, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Right(sInput, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Left(sInput, 4)

    MsgBox sUS_date

End Sub