IBM Lotus Symphony


Função Mid, Instrução Mid [Tempo de Execução]

Retorna a parte especificada de uma expressão de sequência (Mid function) ou substitui a parte de uma expressão de sequência por outra sequência (Mid statement).

Sintaxe:

Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)

Valores de Retorno:

Sequência (somente por Função)

Parâmetros:

Text: Qualquer expressão de sequência que você deseje modificar.

Start: Expressão numérica que indica a posição do caractere na sequência em que inicia a parte da sequência que você deseja substituir ou retornar. O valor máximo permitido é 65535.

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

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

Se o parâmetro Length na instrução Mid for menor que o comprimento do texto que você deseja substituir, o texto será reduzido para o comprimento especificado.

Text: A sequência para substituir a expressão de sequência (Mid statement).

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

sInput = InputBox("Please input a date in the international format '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


Feedback do Produto | Documentação Adicional | Marcas Registradas