Newsgroup: it.comp.appl.access
Titolo: CALCOLI NELLE RUTIN

Ciao a tutti,
dovrei effettuare un calcolo durante l'esecuzione di un codice vba e salvare
il risultato in una variabile. Come faccio ad arrotondare il mio risultato
alla seconda cifra decimale?
grazie e ciao

 ha scritto nel messaggio
news:fCoz6.1093$k53....@news1.tin.it...

Se l'arrotondamento è per difetto:
Me!ControlloArrotondato = Int(Me!ControlloDaArrotondare*100)/100
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

alla seconda cifra decimale?
Moltiplichi per cento, prendi l'intero, poi dividi per cento.
Ovvero: int(tuavar*100) /100
Solo che....
ho avuto lo stesso problema la settimana scorsa e credevo di averlo risolto
come sempre nella maniera che ti sto dicendo. Poi mi e' capitato un numero
fatto piu' o meno cosi':
3,235443543542354324E6
che dato in pasto alla funzioncina di ciu sopra mi restituiva un bel 0,00.
Ora, avendo io fatto il liceo classico, di numeri non e' che me ne intenda
molto...:-)
Poi mi hanno spiegato cos'e' quella roba li' ed ho capito che quella
funzioncina non puo' andare bene se hai numeri, diciamo cosi', un po'
complicati, ma se  non prevedi di avere numeri cosi' piccoli prendila per
buona!:-)
Saluti.
Luciano
(DOC)

alla seconda cifra decimale?
Moltiplichi per cento, prendi l'intero, poi dividi per cento.
Ovvero: int(tuavar*100) /100
Solo che....
ho avuto lo stesso problema la settimana scorsa e credevo di averlo risolto
come sempre nella maniera che ti sto dicendo. Poi mi e' capitato un numero
fatto piu' o meno cosi':
3,235443543542354324E-06


Arrotondare un numero alla cifra decimale specificata (uso commerciale)
 by Karl Donaubauer
Function fctRound(varNr, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
   fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10 ^
varPl)
End Function
Esempi:
Se si omette varPI, il numero viene arrotondato alla seconda cifra decimale
?fctRound(1.024) --> 1.02
?fctRound(1.025) --> 1.03
?fctRound(1.24, 1) --> 1.2
?fctRound(1.25, 1) --> 1.3
?fctRound(1240, -2) --> 1200
?fctRound(1250, -2) --> 1300
Nota:
La stringa vuota ("") non č un errore, ma un trucco per essere piů precisi
nell'arrotondamento.
from 
http://www.sitocomune.com/

Si scrive ROUTINE.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 Si scrive ROUTINE.
Dai, secondo me scherzava...:-)
Saluti.
Luciano
(DOC)

 Dai, secondo me scherzava...:-)
Dici?
Beh, in tal caso... usero' la frusta senza le borchie :-)


 Beh, in tal caso... usero' la frusta senza le borchie :-)
Quella che hai usato con Tatiana l'altra sera al Prive' sulla statale 37?:-)
Saluti.
Luciano
(DOC)

 Saluti.
Sssshhhhhh....
Mia moglie potrebbe sentirti!
Sib