🚀 go-pugleaf

"El Gioppinho" <daropp@ELIMINABINLADENtin.it> ha scritto nel messaggio 
news:CccVe.42399$O6.2428029@news3.tin.it...
> Esiste una funzione in vb che permetta di controllare facilmente se una
> sequenza di numeri interi sono tutti diversi tra loro ?
>

Non mi pare che esista...

> Se non esiste (e per quanto abbia controllato nell'help, non mi pare di
> averla vista) avete qualche suggerimento su come potrei realizzarla ?
>
> Grazie.
>
>

Io metterei la sequenza in un array...
prova con un form dove inserisci una button "Command1"
poi prova a cambiare la sequenza di numeri nell'array aa
nell'esempio hai i due casi...

Private Sub Command1_Click()
Dim aa
aa = Array(10, 12, 33, 44, 15, 11)
If CheckNumber(aa) Then
  MsgBox ("Tutti diversi...")
Else
  MsgBox ("Opsss... Duplicati presenti")
End If
'
aa = Array(10, 12, 33, 44, 15, 11, 12)
If CheckNumber(aa) Then
  MsgBox ("Tutti diversi...")
Else
  MsgBox ("Opsss... Duplicati presenti")
End If
End Sub

Function CheckNumber(aMyNumber)
Dim lOk As Boolean
lOk = True
For cnt1 = 0 To UBound(aMyNumber) - 1
    For cnt2 = cnt1 + 1 To UBound(aMyNumber)
        If aMyNumber(cnt1) = aMyNumber(cnt2) Then
            lOk = False
            Exit For
        End If
   Next
Next
CheckNumber = lOk
End Function