Compléments pour Microsoft Access

http://access.fr.free.fr/

Arrondir au plus proche (Nombre)

Description 

Cette fonction permet d'obtenir l'arrondi le plus proche d'un nombre en spécifiant le nombre de décimales souhaitées.

 
Synthaxe 

Expression-Numérique = ArrondirProche(strField, intNbDecimal)

La synthaxe de la fonction ArrondirProche comprend les éléments suivants :

ElémentsDescription

strField

Expression de chaîne correspondant au nom du champ que l'on souhaite arrondir.
intNbDecimalExpression numérique correspondant au nombre de décimale que l'on souhaite.
 
Exemple 

Cette fonction pourra être utilisée dans une requête de la manière suivante :

SELECT Champ1, ArrondirProche([Montant], 2) AS Résultat
FROM LaTable;

 
Code de la fonction 


Public Function ArrondirProche(strField As String, _
     intNbDecimal As Integer) As Double

'Permet de choisir le nombre de décimales pour l'arrondi
ArrondirProche = Int(CDec((strField * _
    (10 ^ intNbDecimal) + 0.5))) / _
    (10 ^ intNbDecimal)

End Function