Richiamare un numero - Come fare?

[Xeroxs]

Buongiorno a Tutti,
Dovrei creare un metodino, ma prima di farlo vorrei sapere se è possibile da una serie di numeri che vengono calcolati voler richiamare quel numero che non appartiene a quella decina,

Faccio un esempio

Mi Ritrovo ad avere questi numeri 82 85 89 ed il 24
che io chiamerò Num(1) = 82 Num(2) = 24 Num(3) = 85 e Num(4) = 89

Io vorrei utilizzare il numero 24 che non appartiene alla stessa decina 8 degli altri numeri.

Premetto che il numero che non appartiene alla stessa decina può essere anche diverso da Num(2) per cui devo capire come estrapolare il numero diverso per poterlo utilizzare ame ambata o come numero di calcolo successivo

Ad esempio si possono utilizzare degli If, o altro per dire

Ambata = al 24 in questo primo esempio


Oppure se avessi 22 28 36 29

dove Num(1) = 22 Num(2) = 28 Num(3) = 36 e Num(4) = 29

Quindi devo Richiamare il 36 che in questo caso è il Num((3)

Spero di essere stato comprensivo in ciò che vorrei fare.

Grazie come Sempre

 

[lotto_tom75]

Ciao xeroxs, in attesa di eventuali interventi da parte dei big scripters la butto là... Potresti forse ricorrere in qualche modo alla funzione


Function Decina(Numero) As Integer

Descrizione

Ottiene la decina del numero specificato

E poi confrontare che so il relativo vettore e nel caso ci sia un solo numero con una sola specifica decina estrapolare solo quello...

 

[Xeroxs]

Ciao Lotto_Tom75

Sto provando diverse cose , vedrò anche questa.

Intanto Grazie per L'intervento.

 

[Enplein]

Buongiorno.

Ci sono tante soluzioni, come creare una funzione...

Prova questa soluzione:
Sub Main() Dim n(4),dc(4) n(1)=22: n(2)=28 : n(3)=36 : n(4)=29 For i=1 To 4 dc(i)=Decina (n(i)) Next For j=0 To 8 g=0 For y=1 To 4 If dc(y)<>j Then g=g+1 : q=y Next If g=1 Then Exit For Next If g=1 Then nc=n(q) Scrivi StringaNumeri (n)& Space (2)&"Num. Diverso "& nc End If End Sub

 

[Xeroxs]

Ciao, Grazie anche a Te Enplein
ci provo.

 

[Xeroxs]

Provato è questa soluzione funziona benissimo
Grazie ancora Enplein