Esta es una función para eliminar las tildes de una cadena de texto, lo cuál es bastante útil a la hora de hacer ciertas comparaciones de cadenas o para obtener resultados de búsqueda.
Función:
Function EliminarAcentos(texto)
dim i, s1, s2
s1 = "ÁÀÉÈÍÏÓÒÚÜáàèéíïóòúü"
s2 = "AAEEIIOOUUaaeeiioouu"
if len(texto) <> 0 then
For i = 1 to Len(s1)
texto = replace(texto,mid(s1,i,1),mid(s2,i,1))
next
end if
EliminarAcentos = texto
End Function
Uso:
EliminarAcentos("Texto de descripción")







