IBM Lotus Symphony
|
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).
Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)
Sequência (somente por Função)
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).
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