Funci贸n Mid e instrucci贸n Mid

Devuelve la porci贸n especificada de una expresi贸n de cadena (funci贸n Mid) o sustituye la parte de una expresi贸n de cadena por otra cadena (instrucci贸n Mid).

Sintaxis:


Mid (Texto As String, Inicio As Long[, Longitud As Long]) o Mid (Texto As String, Inicio As Long, Longitud As Long, Texto As String)

Valor de retorno:

Cadena (solo por funci贸n)

Par谩metros:

Texto: cualquier expresi贸n de cadena que se quiera 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.

Si se omite el par谩metro de longitud de la funci贸n Mid, se devuelven todos los caracteres de la expresi贸n de cadena, desde la posici贸n de inicio hasta el final de la cadena.

Si el par谩metro de longitud de la instrucci贸n Mid es inferior a la longitud del texto que se desea sustituir, el texto se reduce a la longitud especificada.

Texto: La cadena que sustituir谩 a la expresi贸n de cadena (instrucci贸n Mid).

C贸digos de error:

5 Llamada a procedimiento no v谩lida

Ejemplo:


Sub ExampleUSDate
Dim sInput As String
Dim sUS_date As String
    sEntrada = InputBox("Escriba una fecha en el 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

隆Necesitamos su ayuda!