Sumário

# Instrução Mid Function, Mid

Retorna a porção especificada de uma expressão string (Função Mid), ou substitui a porção da expressão string com outra string (Instrução Mid).

### Sintaxe:

    Mid (Text As String, Start As Integer [, Length As Integer]) ou Mid (Text As String, Start As Integer , Length As Integer, Text As String)

### Valor de retorno:

String (somente por Function)

### Parâmetros:

Text: qualquer expressão de cadeia de caracteres que você deseje modificar.

Start: Expressão numérica que indica a posição do caractere dentro da string onde começa a parte da string a substituir ou retornar. O valor mínimo permitido é 1. O valor máximo permitido é 2.147.483.648.

Length: Expressão numérica que retorna o número de caracteres a substituir ou retornar. O valor máximo permitido é 2.147.483.648.

Se o parâmetro Length da função Mid for omitido, serão retornados todos os caracteres da expressão de cadeia de caracteres, da posição inicial até a posição final.

Se o parâmetro Length da instrução Mid for menor que o tamanho do texto a ser substituído, o texto será reduzido até o tamanho especificado.

Text: a cadeia de caracteres que deverá substituir a expressão de cadeia de caracteres (instrução Mid).

### Códigos de erro:

5 Chamada de procedimento inválida

### Exemplo:

    Sub ExampleUSDate
    Dim sInput As String
    Dim sUS_date As String
        sInput = InputBox("Entre uma data no formato internacional 'AAAA-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

Tópicos relacionados

Funções de String