Bonjour
je recontre un probleme avec un bout de code assez simple que je redige dont le but est de determiner si un nombre est un palindrone , voici le code :
Sub date_palindrome()
verif_palindrome (26071762) 'valeur à tester via la fonction "verfi_palindrome" ecrite plus bas
End Sub
Function verif_palindrome(x As Variant) As Boolean
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1) 'le soucis est ici la variable s me retourne la suite 2671762 ! le "0" est manquant ...
Next
q = x
r = Val(s)
If q = r Then
verif_palindrome = True
End If
End Function
dans ce code j'indique la ligne ou ca cloche à savoir la variable s me retourne 2671762 au lieu de 26071762 , je ne m'explique pas le fait que le "0" n'ai pas été pri en compte , j'ai pourtant fait passer x en string , en long et en variant c'est toujours le cas
Auriez vous une explication à cette "enigme " ?
Merci a vous