Public Function RReverse(aString As String) As String
Dim L As Integer 'longitud de la cadena
Dim M As Integer 'punto de corte
L = Len(aString)
If L <= 1 Then 'Final... ya no es necesario utilizar la recursividad
RReverse = aString
Else
M = Int(L / 2)
RReverse = RReverse(Right$(aString, L - M)) & RReverse(Left$(aString, M))
End If
End Function
Comentarios sobre la versión: 1 (0)
No hay comentarios