Inhoud
Index 🔎︎

# Mid-functie, Mid-Instructie

Geeft het gespecificeerde deel van een tekenreeks (Mid-functie), of vervangt het deel van een tekenreeks door een andere tekenreeks (Mid-instructie).

## Syntaxis:

    Mid (Tekst As String, Start As Integer [, Lengte As Integer]) of Mid (Tekst As String, Start As Integer, Lengte As Integer, Tekst As String)

## Teruggegeven waarde:

String (alleen voor Functie)

## Parameters:

Tekst: Elke tekenreeks die moet worden gewijzigd.

Start: Numerieke expressie die binnen de tekenreeks de tekenpositie aangeeft waar het tekenreeksdeel begint dat u wilt vervangen of retourneren. Hoogste toegestane waarde is 65535.

Lengte: Numerieke expressie die het aantal tekens dat moet worden vervangen of teruggegeven aangeeft. Hoogst toegestane waarde is 65535.

Als de Lengte-parameter in de Mid-functie wordt weggelaten, worden alle tekens in de tekenreeks vanaf de beginpositie tot het einde van de tekenreeks teruggegeven.

Als de Lengte-parameter in de Mid-instructie kleiner is dan de lengte van de tekst die moet worden vervangen, zal de tekst worden ingekort tot de gespecificeerde lengte.

Tekst: De tekenreeks die de bestaande tekenreeks moet vervangen(Mid-instructie).

## Foutcodes:

5 Ongeldige aanroep van procedure

## Voorbeeld:

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInvoer = InputBox("Voer alstublieft een datum in met de internationale opmaak 'YYYY-MM-DD'")
        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