Compléments pour Microsoft Access

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

Arrondir multiple supérieur (Nombre)

Description 

Cette fonction permet d'obtenir l'arrondi d'un nombre au multiple supérieur le plus proche.

 
Synthaxe 

Expression_Numérique = ArrondirMultipleSup(strField, dblMultiple)

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

ElémentsDescription

strField

Expression de chaîne correspondant au nom du champ que l'on souhaite arrondir.
dblMultipleExpression numérique correspondant au multiple à utiliser pour l'arrondi.
 
Exemple 

Si l'on souhaite arrondir 47 au multiple de 5 supérieur à savoir 50, il faudra utiliser la fonction de cette manière :

Result = ArrondirMultipleSup ("47", 5)

 
Code de la fonction 


 Public Function ArrondirMultipleSup(strField As String, _
    dblMultiple As Double) As Double

'Permet d'arrondir à un multiple supérieur
ArrondirMultipleSup = -Int(-strField / dblMultiple) * dblMultiple

End Function