Función sReverse
Publicado: 15 Ene 2013, 12:39
Os dejo esta chapuza que me curre... seguro que hay formas de hacerlo mehor y mas bonito.. pero esto es lo que me salio a mi..
Salud!
Código: Seleccionar todo
Public Function sReverse(Cadena As String) As String
For i = 0 To Len(Cadena) - 1
c = Mid(Cadena, i + 1, 1)
d = Mid(Cadena, Len(Cadena) - i, 1)
sReverse = sReverse & Replace(c, c, d)
Next i
End Function