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).

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