Imprimir página | Cerrar ventana

obtener iniciales de apellidos

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85488
Fecha de impresión: 31/Octubre/2020 a las 09:17


Tema: obtener iniciales de apellidos
Publicado por: Nomada
Asunto: obtener iniciales de apellidos
Fecha de publicación: 15/Septiembre/2020 a las 17:52
Buenas.
Como podría extraer las dos letras primeras de los apellidos? Del primer apellido ya lo tengo con Left, pero del segundo no doy con ello.

Gracias.



Respuestas:
Publicado por: xavi
Fecha de publicación: 15/Septiembre/2020 a las 18:33
Hola,

Asumiendo que hay gente aristocrática con varios apellidos compuestos y que se quiere recuperar los 2 primeros caracteres de cada uno de ellos:

Crea una función que reciba el nombre completo como argumento y devuelva un String
La función "partirá" la cadena en diferentes trozos y los colocará en un array (función Split)
Recorres cada uno de los trozos y tomas los 2 primeros caracteres. Lo vas concatenando en una variable de texto que utilizas para devolver el valor.

Function DameIniciales(strTexto As String) As String
    Dim arrTrozos       As Variant
    Dim i               As Integer
    Dim strTmp          As String
    
    arrTrozos = Split(strTexto, " ")
    For i = LBound(arrTrozos) To UBound(arrTrozos)
        strTmp = strTmp & Left(arrTrozos(i), 2)
    Next
    DameIniciales = strTmp
End Function


En otro escenario en que solo vas a tener 2 apellidos, localiza el espacio (función InStr) entre ellos para tomar esa posición para extraer los 2 caracteres a partir de esa posición (función Mid)

Inicales = Left(Apellidos, 2) & Mid(Apellidos, InStr(1, Apellidos, " ") + 1, 2)

Un saludo



-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Nomada
Fecha de publicación: 22/Septiembre/2020 a las 06:43
Perfecto.
Muchas gracias.
Este hilo se puede cerrar satisfatoriamente.
Saludos



Imprimir página | Cerrar ventana