Perdón
Perdón por lo que te pedí de la función que lea una palabra y diga si es pelindrome o no pero es que ese día yo pensé que las iba a revisar el profe y por eso puse así espero que me perdones no fuew mi intención y si la puedes resolver.
Gracias
Gracias
1 Respuesta
Respuesta de tavopz
1
Esta función puede servirte.
=============
Public Function Palindromo(ByVal x As Range) As String
For i = 0 To Trim(Len(x)) - 1
letra = Mid(Trim(x), Len(Trim(x)) - i, 1)
If letra <> " " Then
n = n & letra
x2 = letra & x2
End If
Next i
If n = x2 Then
Palindromo = "Palíndromo"
Else
Palindromo = "No Palíndromo"
End If
End Function
==========
=============
Public Function Palindromo(ByVal x As Range) As String
For i = 0 To Trim(Len(x)) - 1
letra = Mid(Trim(x), Len(Trim(x)) - i, 1)
If letra <> " " Then
n = n & letra
x2 = letra & x2
End If
Next i
If n = x2 Then
Palindromo = "Palíndromo"
Else
Palindromo = "No Palíndromo"
End If
End Function
==========
