Arrondir au Multiple en VB.net

Fermé
JL - 8 juin 2015 à 15:56
 Yoda - 9 juin 2015 à 12:49
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!

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 tester
Sub 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
0

Discussions similaires