Newsgroup: it.comp.lang.visual-basic
Titolo: ... Arrotondamento

Salve a tutti.. ho un quesito Matematico.
Allora, partiamo dal fatto che devo arrivare al valore di 290.000
da questo devo togliere l'iva quindi 290.000 /1.2 = 241.666
poi devo moltiplicare 241.666 * 20% = 48.333
ora se io faccio 48.333 + 241.666 = 289.999
Come faccio ad arrotondare a 290.000?
P.S.: Non sono io che mi diverto a farmi delle seghe mentali... ma sapete
anche voi, che il cliente ha sempre ragione. Ditemi se poi uno no si deve
incazzare come una bestia...;o((((

Magari č una cazzata, ma da quel che so l'IVA si arrotonda in eccesso.
DovresTi determinare l'IVA facendo la differenza tra 290000 e 241666 :
290000 - 241666 = 48334
Bye Bye by Fabio GRANDE

Più o meno ho lo stesso problema....e il cliente mi fa girare le balle...in una maniera assura... :-(
..magari fosse però solo questo.
Appena faccio l'algoritmo per arrotondare una cifra in lire te lo passo qui....
intanto ti do quello per gli Euro :-))
Public Function ArrotondamentoEuro(ByVal valore As Double) As Double
Dim numero As Double
numero = valore - Int(valore)
If numero < 0.5 Then
    ArrotondamentoEuro = Int(valore)
ElseIf numero > 0.5 Then
    ArrotondamentoEuro = Int(valore) + 1
ElseIf numero = 0.5 Then
    ArrotondamentoEuro = valore
End If
End Function
Ciao SIMO
--
__________________
www.sasim.cjb.net


Ciao, purtroppo sono nelel tue stesse condizioni... ; (
Che palleeeeeeeeeeee!
Cmq, io devo fare un'arrotondamento alle 1000 Lire (e ho anche 'sti cazzo di
Euro!)
Probabilmente esiste un metodo meno "sporco", perň io divido l'importo per
1000, vedo se il resto č >= a 500 Lire, allora moltiplico l'importo per 100
piů 1.
Es.
Importo: 12560
1)  12560 Mod 1000
Se il risultato č >= 500 allora il nuovo importo č (fix(12560 / 1000) + 1) *
1000
Risultato: 13000
altrimenti il nuovo importo č fix(12560 / 1000)  * 1000
Spero ti sia stato d'aiuto, sono consolidare al tuo problema ; )
Byez
--
Tango
www.af.mil
ICQ: 35463931

 wrote in message
news:9go1bl$o14$1...@fe2.cs.interbusiness.it...


 wrote in message
9gnuu9$hem$1...@nreadB.inwind.it...


Ciao, ho provato la round, però ha dei difetti che mi hanno creato non pochi
problemi!
Ho scoperto le seguenti "chicche" della funzione:
Round(1.5) => 2 quindi arrotonda al valore intero più alto...
Round(2.5) => 2 ??? Cos'è??? Non dovrebbe arrotondarlo a 3 come ha fatto
prima?
Round(3.5) => 4 e il 3 se lo pesca...
Round(4.5) => 4 ??? Ancora?
Round(5.5) => 6 ...
Round(6.5) => 6    : O         PANICO!!!
Non so se sia giusto "matematicamente" marlando, ma se trovandosi a metà,
uno lo arrotonda al superiore non dovrebbe essere così per tutti?
Cmq Anche se fosse giusto purtroppo io devo arrotondare sempre a quello
superiore, quindi ho dovuto realizzare una funzione che ammetto è un po'
sporca...ma funziona! : Þ


 wrote in message
news:9gqn3n$dma$1...@fe2.cs.interbusiness.it...


E' questo che non mi torna!
Anch'io sono del tuo stesso parere, ma allora perchè 2,5 lo arrotonda a 2?


Anch'io sono del tuo stesso parere, ma allora perchè 2,5 lo arrotonda a 2?
HOWTO: Implement Custom Rounding Procedures 
Q196652
http://support.microsoft.com/support/kb/articles/Q196/6/52.ASP
PRB: Round Function different in VBA 6 and Excel Spreadsheet 
Q194983
http://support.microsoft.com/support/kb/articles/Q194/9/83.ASP
hth, hal