Ajuda do LibreOffice 24.8
Devolve a parte especificada de uma expressão em caracteres (Função Mid), ou substitui a parte de uma expressão em caracteres com outra cadeia (Instrução Mid).
Mid (Texto As String, Início As Long [, Comprimento As Long]) ou Mid (Texto As String, Início As Long , Comprimento As Long, Texto As String)
Cadeia (só por função)
Texto: qualquer expressão em caracteres que pretenda modificar.
Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.
Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.
Se o parâmetro Comprimento na Função Mid estiver omitido, são devolvidos todos os caracteres na expressão desde o início até fim da cadeia.
Se o parâmetro Comprimento na Instrução Mid for menor do que o comprimento do texto a substituir, o texto é reduzido ao comprimento especificado.
Texto: a cadeia para substituir a expressão em caracteres (Instrução Mid).
Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
sInput = InputBox("Por favor introduza 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