Eliminar todos los acentos de una cadena
Access
Publicado el 17 de Julio del 2020 por Joana
3.823 visualizaciones desde el 17 de Julio del 2020
Función para quita todos los acentos de una cadena de texto.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta'--------------------------------------------------------------------------------------------'Función para quitar acentos de una cadena de texto'--------------------------------------------------------------------------------------------Public Function fncQuitarAcentos(ByVal strNombre As String) As String
Const conAcentos = "áàäâÁÀÄÂéèëêÉÈËÊíìïîÍÌÏÎóòöôÓÒÖÔúùüûÚÙÜÛýÿÝ"
Const sinAcentos = "aaaaAAAAeeeeEEEEiiiiIIIIooooOOOOuuuuUUUUyyY"
Dim i As Integer
For i = 1 To Len(conAcentos)
strNombre = Replace(strNombre, Mid(conAcentos, i, 1), Mid(sinAcentos, i, 1), 1, -1, vbBinaryCompare)
Next
fncQuitarAcentos = strNombreEnd Function
Comentarios sobre la versión: 1 (0)
No hay comentarios