Carrito: 
En una entrada anterior compartí con ustedes una fórmula para eliminar acentos. Ver Post
En esta ocasión les comparto otra fórmula UDF que hace la misma tarea que la anterior, a diferencia que ésta última esta programada con API’s y me pareció una forma interesante de programarla del gran gurú y MVP Laurent Longre.
En esta ocasión les comparto otra fórmula UDF que hace la misma tarea que la anterior, a diferencia que ésta última esta programada con API’s y me pareció una forma interesante de programarla del gran gurú y MVP Laurent Longre.
Les comparto el código con unos insignificantes cambios por cuestión de idioma.
Option Explicit
Private Declare Function FoldString Lib "kernel32" Alias "FoldStringA" _
(ByVal dwMapFlags As Byte, ByVal lpSrcStr As Long, ByVal cchSrc As Long, _
ByVal lpDestStr As Long, ByVal cchdest As Long) As Long
Function SINACENTOS(Texto$) As String
Dim i As Integer
SINACENTOS = Space(Len(Texto))
For i = 0 To Len(Texto) * 2 - 2 Step 2
FoldString &H40, StrPtr(Texto) + i, 1, StrPtr(SINACENTOS) + i, 1
Next i
End Function
