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