Fonction d’Arrondi                           wpe2.gif (1107 octets)exemple.mdb

En Access, il n’existe pas vraiment de fonction d’arrondi. La fonction personnalisée suivante permet un nombre en fonction d’un nombre donné de décimales.

Function Arrondi (Nombre As Double, dec As Integer) As Double
'But : Calcule l'arrondi d'un nombre
'Nombre : Nombre à arrondir
'dec : Nombre de décimales

Dim partieentiere As Long
Dim partiedec, y As Double
Dim x As Long

partieentiere = Int(Nombre)
partiedec = Nombre - partieentiere
x = partiedec * 10 ^ dec
y = x - Int(x)
If y >= .5 Then
x = x + 1
End If
Arrondi = partieentiere + x / (10 ^ dec)

End Function