Function pour arrondir

Bonjour à vous

je compose un code pour arrondir en Floor et en Ceiling et je butte sur une partie importante de la function.

Pour expliquer les caractéristiques recherchées de la function, j'aimerais par exemple arrondir au 10em ou au 100em en fonction de la profondeur.

Donc

Supposons 295
prof=1 au 100em
prof= 2 au 10em

supposons 2150
prof=1 au 1000em
prof= 2 au 100em
prof=3 au 10em

etc

Code:

---

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

'IntLength est la longueur du nombre à arrondir ex. 255 ElseIf IntLength = 3 Then   Strtmp = Strtmp.Insert(Prof, ",")   If Prof = 1 Then Coef = 100 'Donc ici 255 retourne 300 ElseIf Prof = 2 Then Coef = 10 'Donc ici 255 retourne 260   End If   IntTmp = Math.Ceiling(CDbl(Strtmp)) IntTmp = IntTmp * Coef

---

je travail à améliorer la function pour qu'elle reconnaisse dans quel fraction arrondir en fonction de la profondeur choisi

quelqu'un a une idée ?
merci

Code:

---

the_rounded_decimal_Number = Math.Round(the_unrounded_decimal_number,the_number_of_decimal_digits, MidpointRounding.AwayFromZero)

---

Merci Graffito

j'avais déjà exploré la fonction et c'est pas ce que je recherche mais peut-être que je l'ai pas bien compris.

je cherche à récupérer le ceiling et non le round donc 12.3 vas égaler 13 et non 12

en fin de conte ma dificulter est de reconnaitre sous quel coef multiplier en fonction de la profondeur

si la prof est 1 donc mon 255 deviens 2.55, le ceiling deviens 3 et je doit multiplier par 100 pour revenir à 300

ce qui veux dire l'arrondie de 255 = 300

mais si j'ai une prof de 2, 255 deviens 25.5 ce qui donne un ceiling de 26 donc je dois le multiplier par 10 pour obtenir 260

ce qui veux dire l'arrondie de 255 = 260

voila ce que je recherche à automatisé

merci pour ton implication

Je peux te proposer deux variantes, l'une "purement" mathématique, l'autre basée sur la représentation textuelle du nombre.
Je ne prétends pas qu'elles soient malines ou parfaites, mais elles semblent donner les bons résultats :

Tout d'abord la seconde (oui c'est logique :aie:) :

Code:

---

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

Function RoundToNearest(number As Integer, depth As Integer) As Integer Static digits As String = "0123456789"   Dim str = number.ToString   Dim result = str.Substring(0, depth - 1) If str(depth - 1) = "9"c Then If result = "" Then result = "1" result &= 0 Else result &= digits(digits.IndexOf(str(depth - 1)) + 1) End If Return Integer.Parse(result & New String("0"c, str.Length - depth)) End Function

---

Elle fonctionne en convertissant le nombre en chaine, puis on garde la partie avant la profondeur souhaitée, de là on vérifie le digit au niveau de la profondeur ; si c'est 9 et que notre résultat est vide (donc le 9 est en premier chiffre) on conserve un 10 sinon on rajoute juste un 0 au résultat et si ce n'est pas un 9, on prend le chiffre suivant dans l'ordre numérique qu'on rajoute. de là il ne reste plus qu'à combler le reste de la longueur du nombre avec des 0 et re-convertir ça en nombre.
Si j'applique ça aux exemples données on a :

Citation:

---

RoundToNearest (255, 1) :
str = "255"
result = ""
str(depth - 1) n'est pas un 9 on passe dans le Else
on rajoute le digit de la "liste" suivant le digit observé (2 dans ce cas) donc
result = "3"
enfin on le comble avec des 0
valeur retournée : 300

RoundToNearest (255, 2)
str = "255"
result = "2"
str(depth - 1) n'est pas un 9 on passe dans le Else
on rajoute le digit de la "liste" suivant le digit observé (le premier 5 dans ce cas) donc
result = "26"
enfin on comble avec des 0
valeur retournée : 260

---

L'autre possibilité :

Code:

---

1 2 3 4 5 6

Function RoundToNearest(number As Integer, depth As Integer) As Integer Dim length = CInt(Math.Floor(Math.Log10(number))) + 1 Dim power = CInt(10 ^ (length - depth))   Return ((number \ power) + 1) * power End Function

---

On commence par calculer la longueur du nombre en appliquant "bêtement" la formule (il faut juste rajouter un Cast en entier car Math.Floor renvoie un Double) ; ensuite on détermine la puissance de 10 associée à la profondeur recherchée, et enfin on divise (division entière) le nombre par cette valeur on ajoute 1 et on re-multiplie.
Si j'applique ça aux exemples données on a :

Citation:

---

RoundToNearest (255, 1)
length = 3 (par application directe de la formule)
power = 10 ^ (3 - 1) = 100
si on décompose le calcul on a :
tmp = number \ power -> 255 \ 100 = 2 (division entière)
tmp = tmp + 1 -> 2 + 1 = 3
tmp = tmp * power -> 3 * 100 = 300

RoundToNearest (255, 1)
length = 3 (comme précédemment)
power = 10 ^ (3 - 2) = 10
on décompose le calcul :
tmp = number \ power -> 255 \ 10 = 25 (division entière)
tmp = tmp + 1 -> 25 + 1 = 26
tmp = tmp * power -> 26 * 10 = 260

---

Après j'ai fait aucun tests poussés, genre si la profondeur est supérieure à la longueur du nombre ou si ça doit aussi gérer des flottants.

Merci Sehnsucht

la deuxième exemple, donc la première slon ta logique lol :aie:
me semble pertinent surtout cette partie

Code:

---

Dim power = CInt(10 ^ (length - depth))

---

je test ça et je confirme

Bonjour,

Je ne suis pas organisé pour tester ou comparer maintenant, mais la classe Math() du Framework a deux méthodes Floor, deux méthodes Ceiling et quelques méthodes Round.

merci M. Clément j'utilise déjà les deux fonctions dans mon code.

Mon cher Sehnsucht tu es mon idole du jour je te remercie infiniment

le code semble fonctionner à merveille selon mes premier tests