[VB] Arrotondamento dell'Euro... qualche dubbio

[bulvio]

Ciao a tutti...

so che ormai è passato del tempo da quando esiste l'euro, ma mi sono imbattuto or ora in un problema che mi ha lasciato un attimo lì, e che non riguarda strettamente il linguaggio di programmazione.

Dunque, che sappia io, l'euro ha 2 cifre decimali, che vengono arrotondate a seconda se dalla terza in poi il numero è < di 0.005 oppure =>.

In VB esiste la funzione Round(numero,2). Ma non fa la stessa cosa.

Se io ho 12,3458 ----> 12,35. OK
Se io ho 12,3448 ----> 12,34. OK

Ma se io ho 12,345 ----> il risultato GIUSTO dovrebbe essere 12,35, ma la funzione Round ritorna 12,34.

E questo che sappia io è un errore contabile. Se faccio un programma di gestione aziendale con questa funzione, faccio pagare fior di milioni di multe...

Chi ha avuto esperienza a riguardo?
anche con altri linguaggi, naturalmente...

[biste]

Leggi questo:
http://forum.html.it/forum/showthrea...hreadid=275259

Questo è la round che ho fatto x risolvere il problema...
Il codice è in VB.NET, ma credo sia facilmente adattabile a VB 6

    Public Shared Function Round(ByVal number As Single, Optional ByVal decimalPosition As Byte = 0) As Single
        Dim n As Double
        Dim p As Double = System.Math.Pow(10, decimalPosition)
        n = number * p
        n += IIf(number < 0, -0.5, 0.5)
        n = Int(n)
        n /= p
        Return n
    End Function

HTH

[Mychy]

L'arrotondamento se non erro dovrebbe essere automatico.

Dim prezzo as currency
prezzo=10,456
prezzo=format(prezzo,"€#,##0.00")
txt1.text=prezzo