Forum IALweb : [Risolto] arrotondamento

[Risolto] arrotondamento : le soluzioni sono state oggetto...

Sat, 28 Apr 2012 11:52:14 +0000

Author: imperiali
Subject: 16463620
Posted: 28/Apr/2012 at 11:52

le soluzioni sono state oggetto di partenza per risolvere il problema che e' si quello di portare il nomero 2,3 a 3 ma e' anche quello di lasciare inalterato il numero 2,2
dopo varie peripezie e con l'aiuto di un collega e' stata realizzata questa soluzione:

Public Function IP_to_OUT(IP As Single) As Integer
Dim intermedio As Integer
intermedio = Int(IP) * 3 + (IP * 10) Mod 10
IP_to_OUT = intermedio
End Function

Public Function OUT_to_IP2(Out As Integer) As String
OUT_to_IP2 = Int(Out / 3) & "." & Out Mod 3
End Function

Public Function IP2_to_OUT(Ip2 As String) As Integer
IP2_to_OUT = CInt(Left(Ip2, Len(Ip2) - 2)) * 3 + CInt(Right(Ip2, 1))
End Function

lo ho lasciato come e' potrebbe servire per qualche spunto
poi nella query ho creato un campo con la seguente origine dati

=out_to_ip2(Somma(ip_to_out([IP])))

non so se e' ok ma il risultato soddisfa le mie esigenze
grazie ancora
Maurizio

[Risolto] arrotondamento : Diciamo rendere "edotto"...

Sat, 28 Apr 2012 11:43:29 +0000

Author: @Alex
Subject: 16463620
Posted: 28/Apr/2012 at 11:43

Diciamo rendere "edotto" mi pare suoni meglio...

[Risolto] arrotondamento : grazie ragazzi per le vostre solerti...

Sat, 28 Apr 2012 11:14:54 +0000

Author: imperiali
Subject: 16463620
Posted: 28/Apr/2012 at 11:14

grazie ragazzi per le vostre solerti riposte , ora testo e poi rendo dotto il forum

[Risolto] arrotondamento : L'arrotondamento per...

Sat, 28 Apr 2012 11:00:56 +0000

Author: @Alex
Subject: 16463620
Posted: 28/Apr/2012 at 11:00

L'arrotondamento per Eccesso si ottiene sommando il massimo quantitativo necessario per far superare il valore di soglia... quindi si prende l'intero...!

Es, se vuoi che gi� con 1� decimale = 3 venga arrotondato allora somma al valore 0.7

ValoreArrotondato=Int(ValoreOrignale+0.7)...

Ci sono poi considerazioni relative ei DataYpe che sono affetti dall'arrotondamento dovuto al FloatingPoint ma � altro argomento.

Questa � una funzione che arrotonda


Function Arrotonda(ByVal NumIn As Variant, _                     Optional AlDecimale As Integer=2, _                   Optional Eccesso As Boolean = True) As Variant           ' [NumIn]           Numero in ingresso          ' [AlDecimale]      Numero di decimali al quale arrotondare.          ' [Eccesso]         True=Eccesso / False=Difetto               Dim varNum      As Variant  'Variabile     Dim varIn       As Variant  'Numero valutato     Dim sgnInc      As Single   'Numero di incremento per l'ECCESSO          'Controllo la validit� del Numero         If IsNumeric(NumIn) Then            ' Converto in DECIMAL per la precisione(14Byte)                   varIn = CDec(NumIn)         Else                    varIn = 0         End If       ' Il 5� decimale � per assicurare l'arrotondamento commerciale(4� decimale)         ' Se ECCESSO=True  --->(+ 0.99999)         ' Se ECCESSO=False --->(0)             sgnInc = Abs(Eccesso) * 0.99999          varNum = Abs(varIn)          'Arrotondo e recupero il segno dopo l'arrotondamento     varNum = (Fix(varNum * (10 ^ AlDecimale) + sgnInc) / (10 ^ AlDecimale))          Arrotonda = Sgn(varIn) * varNum End Function

Ora se guardi quel 0.99999 in rosso dovrai sostituirlo con 0.7... la funzione � richiamabile da una Query, ma forse nel tuo caso pu� bastare il suggerimento iniziale Int(ValoreOrignale+0.7)

Ciao

Edited by @Alex - 28/Apr/2012 at 11:02

[Risolto] arrotondamento : E se il tot/numero e' x,2...

Sat, 28 Apr 2012 10:12:12 +0000

Author: fcarboni
Subject: 16463620
Posted: 28/Apr/2012 at 10:12

E se il tot/numero e' x,2 il risultato ti serve con i decimali o il nr intero arrotonato per difetto?
In questo caso prova:
iif((sum(tuocampo)-int(sum(tuocampo))>0,29;int(sum(tuocampo)+1;int(sum(tuocampo))

[Risolto] arrotondamento : Salve. chiedo un aiuto agli...

Sat, 28 Apr 2012 09:39:47 +0000

Author: imperiali
Subject: 16463620
Posted: 28/Apr/2012 at 09:39

Salve. chiedo un aiuto agli amici in merito ad un arrotondamento per una espressione matematica.
ho creato una query ove nella tabella di riferimento vi � un campo numerico ha precisione doppia con decimali 1.
la query creata somma il campo, ora il problema sta nel decimale, ossia dovrei far scattare al numero pari il decimale con ,3
es:
1,3 = 2
1,1+2,2 = 4
essendo stato sempre schiappa in matem. le sto' provando tutte ma senza nessun risultato.
chiedo se in rete vi � qualche amico/a che mi passi un pizzino con la formuletta da nettere nel campo criterio
grazie anticiapate
Maurizio

Edited by imperiali - 28/Apr/2012 at 11:54