Function Round


Description  

Cette fonction permet de renvoyer un nombre arrondi à un nombre spécifié de positions décimales.
A partir d'Access 2000 il existe une fonction équivalente qui s'utilise de la même façon à savoir la fonction "Round()".

 
Synthaxe  

fRound (Number[, NumDigitsAfterDecimal])

La synthaxe de la fonction fRound comprend l'élément suivant :

Eléments Description
Number Expression numérique que l'on souhaite arrondir.
NumDigitsAfterDecimal Facultatif. Nombre indiquant combien de positions ŕ droite de la virgule sont incluses dans le nombre arrondi. Si cette valeur est omise, l'expression Number est arrondie à l'entier le plus proche
 
Exemple  

Cet exemple permet de retourner dans la variable dblArrondi la valeur de 152,248 arrondi à 2 décimale :

Dim dblArrondi As Double
dblArrondi = fRound (152.248, 2)

Dans cet exemple, la fonction fRound retournera 152,25.

 
Code de la fonction  


Public Function fRound(Number, _
Optional NumDigitsAfterDecimal As Long = 0) As Double

fRound = Int(CDec((Number * _
    (10 ^ NumDigitsAfterDecimal) + 0.5))) / _
    (10 ^ NumDigitsAfterDecimal)

End Function

 

 

Retour haut de page

Auteur : Jessy SEMPERE