[VB6] Funzione per l'arrotondamento di valute (no "Banker's Rounding")

[mr.domanda]

salve,

qualcuno mi saprebbe indicare dove posso trovare una funzione che mi arrotondi un numero decimale?
ho provato con il comando round ma non mi restituisce il valore corretto...
grazie mille.......

[MItaly]

Round effettua un normale arrotondamento alla cifra più vicina; spiega cosa intendi tu per "risultato corretto".
P.S.: per VB c'è l'apposita sezione...

[mr.domanda]

intendo questo:
vorrei che ad esempio 2.1645
diventasse: 2.17

cmq scusa non mi ero accorto della sezione per vb6.....

[MItaly]

E Round come fa a capire che vuoi un arrotondamento alla seconda cifra decimale se non glielo dici? Passale come secondo argomento il numero di cifre decimali a cui arrotonadare (2, in questo caso):

Dim numeroArrotondato As Double
numeroArrotondato = Round(2.1645, 2)

.

[LeleFT]

Originariamente inviato da MItaly
P.S.: per VB c'è l'apposita sezione...

Quoto e sposto.


Ciao.

[mr.domanda]

allora ho trovato che il round fa un arrotondamento bancario usato (solo) nel sistema americano,
a me servirebbe una funzioncina che mi trasformi per esempio il numero 2,1645 in 2,17

[oregon]

Se

x = 2.1645

allora

Round(x+.005, 2)

[mr.domanda]

ok ma non so in partenza quanti decimali ha il mio numero e sopratutto non so se è positivo o negativo....

[oregon]

Beh ... allora fai la domanda completa di tutti i casi che si possono verificare, altrimenti uno ti da' una soluzione e tu aggiungi un altro problema ... non ne usciamo piu' ...

[mr.domanda]

allora mi servirebbe una funzione che dato un numero (che può essere positivo come negativo, con 3,4 o più decimali max 6) lo arrotondi alla seconda cifra decimale....
il round non va bene perché usa il metodo Banker's round, e siccome devo fare arrotondamenti molto precisi mi da un errore troppo grande....
Mi scuso se prima sono stato troppo vago....