IBM Lotus Symphony


Función Mid, Instrucción Mid [Ejecución]

Devuelve la porción especificada de una expresión de cadena (Función Mid ) o reemplaza parte de una expresión de cadena con 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 (sólo la función)

Parámetros:

Texto: Cualquier expresión de cadena que se desee modificar.

Inicio: expresión numérica que indica la posición del carácter en la cadena donde empieza la parte de la cadena que desea reemplazar o devolver. El valor máximo permitido es 65535.

Longitud: expresión entera que devuelve el número de caracteres que se desee reemplazar o devolver . El valor máximo permitido es 65535.

Si se omite el parámetro de longitud de la funcion 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 reemplazar, el texto se reduce a la longitud especificada.

Texto: la cadena que reemplazará la expresión de cadena (Instrucción Mid).

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

Sub EjemploUSDate

Dim sEntrada As String

Dim afecha_EUA As String

sEntrada = InputBox("Escriba una fecha en formato internacional 'AAAA-MM-DD'")

sfecha_EUA = Mid(sEntrada, 6, 2)

sUS_fecha = sUS_fecha & "/"

sfecha_EUA = sfecha_EUA &Right(sEntrada, 2)

sUS_fecha = sUS_fecha & "/"

sfecha_EUA = sfecha_EUA & Left(sEntrada, 4)

MsgBox sfecha_EUA

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas