Formula Utente

[papiriof]

Ho questa formula utente semplicissima che mi fece una trentina di anni fa un giovane mio conoscente.

Codice: Seleziona tutto

Function circ(Val, limite)
    If Val > limite Then
        circ = Val - limite
    ElseIf Val <= 0 Then
        circ = Val + limite
    Else
        circ = Val
    End If
End Function

Ipotesi 1 in A1 =89 in A2=22 in C1 metto la formula = circ(A1+A2;90) il risultato mi da 21
Ipotesi 2 in A1 =89 in A2=22 in C1 metto la formula = circ(A1-A2;90) il risultato mi da 67
Ipotesi 3 in A1 =89 in A2=22 in C1 metto la formula = circ(A1-A2;90) il risultato mi da 67
Fermo restando che limite deve essere sempre 90 come gestire anche anche la moltiplicazione?
Come deve essere trasformata la formula in modo da gestire anche la moltiplicazione ?
Ipotesi 4 in A1 =89 in A2=22 in C1 metto la formula = circ(A1*A2;90) il risultato in questo caso mi da 1868 cioè 1958 -90
mentre mi attenderei "68"

[papiriof]

nella 3 ipotesi leggasi Ipotesi 3 in A1 =89 in A2=22 in C1 metto la formula = circ(A2-A1;90) il risultato mi da 23

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Function circ(Val, limite)
circ = Val Mod limite
If circ = 0 Then circ = limite
End Function

Questo avendo ignorato la puntualizzazione (incompresa) del secondo messaggio

Ciao

[papiriof]

"Questo avendo ignorato la puntualizzazione (incompresa) del secondo messaggio"
Va tutto bene tranne quando val è un numero negativo in questo caso avevo corretto nel secondo messaggio
dicendo "nella 3 ipotesi leggasi Ipotesi 3 in A1 =89 in A2=22 in C1 metto la formula = circ(A2-A1;90) il risultato mi da 23"

[Anthony47]

Non avevo notato la piccola differenza...
Allora prova con:

Codice: Seleziona tutto

Function circ(Val, limite)
circ = Abs(Val) Mod limite
If circ = 0 Then circ = limite
End Function


Si nota la piccola differenza?

[papiriof]

No Anthony non bisogna cambiarecon Abs in questo caso quando Val assume un valore negativo 90 (limite) si aggiunge al più piccolo così 22+90 =112-89 ... risultato atteso 23

[Anthony47]

Io ti vengo dietro ma non so di che parli:

Codice: Seleziona tutto

Function circ(ByVal Val As Long, Optional ByVal limite As Long = 90)
    If Val < 0 Then Val = Val + limite
    circ = Val Mod limite
    If circ = 0 Then circ = limite
End Function


[papiriof]

E lo so, siamo un po ermetici ...... ma adesso ci siamo !!!!