Module
Contents
Index 🔎︎

# Mid Function, Mid Statement

Mid-funktio palauttaa määrätyn osan merkkijonolausekkeesta. Mid-lause korvaa osan merkkijonosta toisella merkkijonolla.

## Syntaksi:

    Mid (teksti1 As String, alku1 As Long [, pituus1 As Long]) tai Mid (teksti1 As String, alku1 As Long , pituus1 As Long, teksti2 As String)

## Palautusarvo:

merkkijono (String, vain funktiolla)

## Parametrit:

Teksti1: mikä tahansa muutettava merkkijonolauseke.

Alku1: numeerinen lauseke, joka osoittaa merkin sijainnin merkkijonossa, josta alkaen korvataan tai luetaan palautettavaksi. Suurin sallittu arvo on 65535.

Pituus1: numeerinen lauseke, joka määrittää sen merkkien lukumäärän, joka korvataan tai palautetaan. Suurin sallittu arvo on 65535.

Jos Mid-funktion pituus-parametri jätetään pois, teksti1:n kaikki merkit alusta loppuun palautetaan funktiossa.

Jos pituus-parametrin arvo Mid-lauseessa on vähempi kuin korvaavan teksti2:n pituus, teksti2 lyhennetään lopusta määritettyyn pituuteen.

Teksti2: merkkijono, joka korvaa osan teksti1:stä (Mid-lauseessa).

## Error codes:

5 Virheellinen proseduurikutsu

## Esimerkki:

    Sub ExampleUSDate

    Dim sInput As String

    Dim sUS_date As String

        sInput = InputBox("Ole hyvä ja anna päivämäärä kansainvälisessä muodossa 'VVVV-KK-PP'")

        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