Arrondir au plus proche

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

L'argument "strField" correspond au nom du champ que l'on souhaite arrondir et l'argument "intNbDecimal" correspond au nombre de décimale souhaitée.

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

La fonction retournera le nombre arrondi.

Elle peut être utilisée dans une requête de la façon suivante :

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

Auteur : Jessy SEMPERE