Module
Contents
Index 🔎︎

# Mid Function, Mid Statement

Vráti určenú časť reťazca (funkcia Mid) alebo nahradí časť reťazca iným reťazcom (príkaz Mid).

## Syntax:

    Mid (Text As String, Začiatok As Long [, Dĺžka As Long]) alebo Mid (Text As String, Začiatok As Long , Dĺžka As Long, Text As String)

## Návratová hodnota:

Typu String (len v prípade funkcie)

## Paremetre:

Text: Reťazec, ktorý chcete upraviť.

Začiatok: Číselný výraz určujúci pozíciu znaku, kde začína časť reťazca, ktorú chcete nahradiť alebo vrátiť. Maximálna povolená hodnota je 65535.

Dĺžka: Číselný výraz určujúci počet znakov, ktoré chcete nahradiť alebo vrátiť. Maximálna povolená hodnota je 65535.

Ak je vo funkcii Mid vynechaný parameter Dĺžka, vrátia sa všetky znaky od počiatočnej pozície do konca reťazca.

Ak je v príkaze Mid parameter Dĺžka menší než dĺžka textu, ktorý chcete nahradiť, text bude skrátený na určenú dĺžku.

Text: Reťazec, ktorým chcete nahradiť určenú časť reťazca (príkaz Mid).

## Error codes:

5 Neplatné volanie procedúry

## Príklad:

    Sub ExampleUSDate

    Dim sInput As String

    Dim sUS_date As String

        sInput = InputBox("Zadajte, prosím, dátum v medzinárodnom formáte '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