Arrondi des expressions numériques avec VB6

Question

La fonction Round de VB6 arrondit les expresions num&#233;riques &#224; la d&#233;cimale sup&#233;rieure losrque la d&#233;cimale qui suit est sup&#233;rieure &#224; 5, et arrondit &#224; la d&#233;cimale inf&#233;rieure losrque la d&#233;cimale qui suit est inf&#233;rieure ou &#233;gale &#224; 5.
Quelqu'un pourrait-il me dire s'il existe une fonction qui permette d'arrondir &#224; la d&#233;cimale sup&#233;rieure lorsque la d&#233;cimale qui suit est &#233;gale &#224; 5 ?
Exemple : 28,585 serait arrondi &#224; deux d&#233;cimales &#224; 28,59 et non pas &#224; 28,58.

Par avance, merci
PME

cs_CanisLupus · Answer

Salut,

Essaie &#231;a :

Resultat_en_double = cdbl(Format$(TonNombre, "0.00"))
ou
Resultat_en_single = csng(Format$(TonNombre, "0.00"))

Loup Gris

Gobillot · Answer

Round((x + 0.005), 2)

Daniel

Gobillot · Answer

d&#233;sol&#233; &#231;a marche pas...!
dommage de passer par une cha&#238;ne, mais la solution de CanisLupus a l'air de marcher.

Daniel

acecel · Answer

voici un copier-coller d'une fonction que j'ai cr&#233;e pour l'arrondi :

Public Function Arrondi(xNb As Double, xNbVirgule As Integer) As Double
    Dim xcoeff As Long
    Dim xTab
    xcoeff = 10 ^ (xNbVirgule)
    If xNbVirgule > 0 Then
        xTab = Split(xNb * xcoeff, ".")
    Else
        xTab = Split(xNb, ".")
    End If
    If ((CDbl(xNb * xcoeff) - CDbl(xTab(0))) >= 0.5) Then
        xNb = (CDbl(xTab(0)) + 1) / xcoeff
    Else
        xNb = (CDbl(xTab(0))) / xcoeff
    End If
    Arrondi = xNb
End Function

Le code n'est peut &#234;tre pas super mais elle fonctionne

Arrondi des expressions numériques avec VB6

4 réponses

Discussions similaires