Modul
Obsah
Index 🔎︎

# Funkce Mid, příkaz Mid

Vrátí určenou část řetězce (funkce Mid) nebo nahradí část řetězce jiným řetězcem (příkaz Mid).

## Syntaxe:

    Mid (Text As String, Začátek As Long [, Délka As Long]) nebo Mid (Text As String, Začátek As Long , Délka As Long, Text As String)

## Návratová hodnota:

Typu String (jen v případě funkce)

## Parametry:

Text: Řetězec, který chcete upravit.

Začátek: Číselný výraz určující pozici znaku, kde začíná část řetězce, kterou chcete nahradit nebo vrátit. Maximální povolená hodnota je 65535.

Délka: Číselný výraz určující počet znaků, které chcete nahradit nebo vrátit. Maximální povolená hodnota je 65535.

Je-li ve funkci Mid vynechán parametr Délka, vrátí se všechny znaky od počáteční pozice do konce řetězce.

Je-li v příkazu Mid parametr Délka menší než délka textu, kterým chcete nahradit, text bude zkrácen na určenou délku.

Text: Řetězec, kterým chcete nahradit určenou část řetězce (příkaz Mid).

## Chybové kódy:

5 Neplatné volání procedury

## Příklad:

    Sub ExampleUSDate

    Dim sInput As String

    Dim sUS_date As String

        sInput = InputBox("Zadejte, prosím, datum v mezinárodním formátu '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