VBA arrotondamento numero

[gio-mx]

Salve, mi serve arrotondare un numero ai dieci euro in eccesso. Cioè:
971,80 deve diventare 980,00
975,00 pure deve diventare 980,00
979,16 pure deve diventare 980,00

Come fare?

Ho fatto così e funziona a metà cioè quando i decimali della variabile rn sono sopra il 5:

rn = Round(rn, 0)
rn = rn / 10
rn = Round(rn, 0)
rn = rn * 10

Al limite c'è un'istruzione che arrotonda sempre in eccesso al posto di Round?

Ciao e grazie.

[tas]

Prova questa funzione:

Public Function Round2(value, nd As Integer)
    Dim n
    
    n = value * (10 ^ nd)
    n = -Int(-n)
    Round2 = n / (10 ^ nd)
End Function

Puoi usarla al posto della funzione Round, con la differenza che puoi usare valori negativi per nd:
Round2(981.17, 2) ---> 981.17
Round2(981.17, 1) ---> 981.2
Round2(981.17, 0) ---> 982
Round2(981.17, -1) ---> 990
Round2(981.17, -2) ---> 1000