CISA FotoGallery

Statistiche

Tot. visite contenuti : 928182
Home Articoli tecnici Moduli Arrotonda per eccesso

Arrotonda per eccesso

In Excel esiste la funzione nativa Arrotonda.Eccesso

In Access bisogna invece crearsi una funzione ad hoc

Function Arrotonda_Eccesso _
(ByVal Numero As Variant, _
Optional Peso As Variant = 0.01 _
) As Double

'Numero =Numero in ingresso
'Peso = scaglione d'arrotondamento
Dim result As Variant 'Risultato
Dim Nr As Variant 'Numero da trattare

'Converto il numero in ingresso nel tipo decimal
Nr = CDec(Nz(Numero, 0))

'Tolgo l'eventuale segno negativo
Nr = Abs(Nr)

'Arrotondo
result = Nr / Peso + 0.99999
result = Fix(result) * Peso

'Riassegno l'eventuale segno negativo e rendo il risultato
Arrotonda_Eccesso = result * Sgn(Nz(Numero, 0))

End Function


Sarà facile poi chiamarla in una query o in una maschera.
---
Espr1: Arrotonda_Eccesso([NomeCampo];0,05)
---