Discussion :

[Mario Rousson]

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

[Sadar]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pol63]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

d = ceiling(d * 10) / 10

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

[Mario Rousson]

merveilleux Pol63

je test ça

Merci à toi aussi Sadar