procedura script

[gamberorosso]

Ciao come si mette in codice questa procedura...
distanza:
51 45
13 83
il primo ambo e 51-45 da 51 a 45 la distanza e 84 perchè 51-90+45=84
praticamente se il numero e più grande si deve fare quelllà procedura.
sx1=abs((n(1)-90)+n(2)) non funziona
sx1=Fuori90((n(1)+90)+n(2)) non funziona
grazie
Con degli if forse ma non so come fare....
if n1(1) > n2(2) then x7(1)=n1(1)- 90 +n2(2) Else x7(1)=n1(1)- n2(2)

 

[Mike58]

Ciao Gamberorosso, i codici di distanza o differenza o Abs, generano nel tuo caso sempre il numero 6 nel caso specifico citato.

Tuttavia con un calcolo ad ok e con degli if then il rusultato forzato di 84 lo si può ottenere, come da esempio.

Sub Main
	a = 51
	b = 45
	If a > b Then c = ((b-a)+90)' if per tuo calcolo
	'If a < b Then c = ((a-b)+90)
	dist = Distanza(a,b)
	diff = Differenza(a,b)
	ab = Abs(a-b)
	Scrivi "Distamza.... " & dist
	Scrivi "Differenza..." & diff
	Scrivi "Abs.........." & ab
	
	Scrivi "Tuo calcolo..." & c,1 ' scrittura tuo calcolo
End Sub

 

[gamberorosso]

Grazie mike58 fatto e funziona