précision avec math.ceiling

Bonjour,

j'aimerais récupérer la fraction supérieur d'un nombre,

ex: si x = .24
retourne .30

avec la fonction math.ceiling je récupère l'entier le plus près soit 1

merci de votre aide

Mario

Bonjour,

En attendant que quelqu'un trouve la bonne instruction, voici ma proposition qui demande un peu de ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Class Form1   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim a As Double = 10.26222   MsgBox(Format(ArrondiSuperieur(a), "#0.00000"))   End Sub   Public Function ArrondiSuperieur(ByVal ValeurSup As Double) As Double   Dim _PartieEntiere As Double = Math.Truncate(ValeurSup) Return _PartieEntiere + CDbl(Format(ValeurSup - _PartieEntiere, "#0.0"))   End Function   End Class

---

Mon idée est d'extraire la partie décimale et l'arrondir à la précision de son choix dans ce cas 1/10 et le tout placé dans une fonction.

Ce code est exhaustif en rapport de son besoin.

pour un arrondi au dixième au dessus ca doit être

Code:

---

d = ceiling(d * 10) / 10

---

.24
d*10 => 2.4
ceiling => 3
/10 => .3

merveilleux Pol63

je test ça

Merci à toi aussi Sadar