Innhald

# Mid-funksjonen, Mid-uttrykket

Returnerer den oppgjevne delen av eit strenguttrykk (Mid-funksjonen) eller byter ut ein del av eit strenguttrykk med ein annan streng (Mid-uttrykket).

### Syntaks:

    Mid (Tekst As String, Start As Long [, Lengd As Long]) or Mid (Tekst As String, Start As Long , Lengd As Long, Tekst As String)

### Returverdi:

Streng (berre med funksjon)

### Parametrar:

Tekst: Strenguttrykket som skal endrast.

Start: Numerisk uttrykk som viser teiknplasseringa inne i strengen der strengdelen som skal bytast ut eller kopierast byrjar. Den høgaste tillatne verdien er 2.147.483.648.

Lengd: Numerisk uttrykk som returnerer talet på teikn som skal bytast ut eller returnerast. Den høgaste tillatne verdien er 2.147.483.648.

Viss Lengd-parameteren i Mid-funksjonen ikkje vert brukt, vert alle tekna i strenguttrykket frå startplasseringa til slutten av strengen returnerte.

Viss Lengd-parameteren i Mid-uttrykket er mindre enn lengda av teksten som skal bytast ut, vert teksten redusert til den oppgjevne lengda.

Tekst: Strengen som skal erstatta strenguttrykket (Mid-uttrykket).

### Feilkodar

5 Ugyldig prosedyreoppkall

### Eksempel:

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInput = InputBox("Skriv inn ein dato i det internasjonale formatet 'ÅÅÅÅ-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

Liknande emne

Strengfunksjonar