Arrondir au Multiple en VB.net
JL
-
Yoda -
Yoda -
Bonjour,
J'aimerais savoir s'il existe un équivalent VB.Net à la fonction excel ARRONDIR_AU_MULTIPLE.
Je pense avoir essayer toutes les formes de la fonction Math.Round sans rien trouver de correspondant.
Merci d'avance!
J'aimerais savoir s'il existe un équivalent VB.Net à la fonction excel ARRONDIR_AU_MULTIPLE.
Je pense avoir essayer toutes les formes de la fonction Math.Round sans rien trouver de correspondant.
Merci d'avance!
1 réponse
-
Bonjour,
On peut toujours essayer d'écrire une fonction
Function ARRONDIR_AU_MULTIPLE(Nombre As Double, Q_reel As Double) As Double
Dim Q_entier As Long
Q_entier = Int(Q_reel)
If Q_entier < Q_reel Then Q_entier = Q_entier + 1
ARRONDIR_AU_MULTIPLE = Nombre * Q_entier
End Function
Et pour testerSub test()
Dim Prix As Double, Qte As Double
Prix = 100
Qte = 3
MsgBox (ARRONDIR_AU_MULTIPLE(Prix, Qte)) 'resultat 300
Qte = 3.1
MsgBox (ARRONDIR_AU_MULTIPLE(Prix, Qte)) 'resultat 400
End Sub
