Em diversas situações ao desenvolver um sistema, um programador precisará de uma função para remover os acentos de uma string.
Este código possui a solução para este problema, basta passar por parâmetro o texto que a função irá retorná-lo sem acento.
'----------------------------------------------------- 'Funcao: RemoveAcentos(ByVal Texto) 'Sinopse: Remove todos os acentos do texto 'Parametro: Texto: Texto a ser transformado 'Retorno: String 'Autor: Gabriel Fróes - www.codigofonte.com.br '----------------------------------------------------- Function RemoveAcentos(ByVal Texto) Dim ComAcentos Dim SemAcentos Dim Resultado Dim Cont 'Conjunto de Caracteres com acentos ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç" 'Conjunto de Caracteres sem acentos SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc" Cont = 0 Resultado = Texto Do While Cont < Len(ComAcentos) Cont = Cont + 1 Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1)) Loop RemoveAcentos = Resultado End Function