Nombre distinct

Bonjour à Tous,

Y a-t-il une Instruction qui détermine si un Nombre est Distinct (composé de chiffres distincts)?

Merci.

Bonjour,

Qu'entends-tu par là ? Tu comptes les caractères différents utilisés pour écrire un nombre : si ce nombre est égal au nombre total de caractères, c'est qu'ils sont tous différents...

Bonjour,

Une 'tite Fonction perso ?

Function IsDistinct(N$) As Boolean
Dim i, ii, k, Y
Y = True
For i = 1 To Len(N) - 1
   k = Mid(N, i, 1)
   For ii = i + 1 To Len(N)
      If Mid(N, ii, 1) = k Then Y = False
   Next
Next
IsDistinct = Y
End Function

A+

Rechercher des sujets similaires à "nombre distinct"