Arrondi un peu compliqué

Version imprimable

02/04/2009, 14h29
Gaetch

Arrondi un peu compliqué

Bonjour,

Je cherche à faire une fonction d'arrondi un peu amélioré pour un logiciel de gestion commerciale. Il doit permettre d'arrondir à 5, 10, 20, 25, 50 centimes ou 1 euro près et il doit également donner le choix entre arrondi supérieur, inférieur ou plus proche.

J'ai un peu cherché sur le net mais apparemment y'a pas d'algorithme qui fait ça enfin je n'en ai pas trouvé. Donc s'il y avait une âme charitable qui pouvait me mettre sur la voie. Je pense qu'avec des fonctions mathématiques ça doit pouvoir se faire, des modulos ou des choses dans le genre mais les maths ça remonte un peu pour moi :oops:

Merci d'avance !
02/04/2009, 14h38
Furikawari

S'il donne le choix entre arrondi supérieur et inférieur, où est le problème ?

Sinon ce sont des intervalles, tu cherches l'intervalle dans lequel se trouve ton nombre, tu regardes sa position par rapport au milieu de cet intervalle.
02/04/2009, 14h58
Zavonen

Pour arrondir à x centimes :
Multiplier par 100 le prix résultat P (en centimes)
q=P/100
r=P%100
s=r/x
Arrondi inférieur q*100+s*x en centimes
Arrondi supérieur q*100+(s+1)x
02/04/2009, 15h14
Gaetch

Heu de peur d'avoir l'air bête je comprends pas bien ce que font tes calculs Zavonen si j'applique ta formule pour l'arrondi inférieur en remplaçant q, r et s et avec un arrondi à 5 centimes ça donnerait donc :

(valeur / 100) * 100 + ((valeur % 100) / 5) * 5

En fait la première parie avant le + je comprends en fait je comptais faire

Code:

((int)(valeur * 100)) / 100

(mais y'a pas de cast en Windev alors j'ai l'air con :P) mais je vois pas ce que représente la partie de droite.
02/04/2009, 15h22
Gaetch

En fait j'arrive à faire un arrondi standard (au plus proche) :

(Arrondi ((valeur * 100) / 5, 0) * 5) / 100

Mais je cherche comment faire un arrondi supérieur et un arrondi inférieur.

Ayé ai fini voilà comment j'ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
PROCEDURE MonArrondi (valeur est un monétaire, valArrondi est un entier, typArrondi est une chaîne de caractères)
tmpVal est un entier = valeur * 100
x est un entier = 0
 
SI (valeur = 0) ALORS
	RENVOYER 0
SINON
	SI (typArrondi = "INFERIEUR") ALORS
		x = - (PartieEntière (valArrondi / 2))
	SINON SI (typArrondi = "SUPERIEUR") ALORS
		x = PartieEntière (valArrondi / 2)
	FIN
	RENVOYER (Max (Arrondi ((tmpVal + x ) / valArrondi), 0) * valArrondi) / 100
FIN