[VB6] Arrondir à 0,05

Version imprimable

16/05/2004, 17h41
Argonz

[VB6] Arrondir à 0,05
Salut à tous !!

Je travaille en VBA sur Excel, et je cherche une fonction pour arrondirun nombre à virgule à 05 (pour des prix)

exemple :
Code:

1 2 3 6.234 -> 6.25 7.891 -> 7.90
Merci d'avance pour vos futures aides.

[Titre édité par HPJ]
[Ancien titre = Arrondir à 05] :wink:
16/05/2004, 19h23
elifqaoui

cherche du coté de Round

Je pense qu'il doit y avoir plus simple, mais ça peut dépanner...
J'ai décomposé au maximum afin de montrer mon raisonnement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function Arrondi5Cts(ByVal x As Double) As Double
 
    Dim resultat As Double
    Dim nbCts As Byte
    Dim nbUnites As Long
 
    resultat = Round(x + 0.001, 2) ' "Round maison" car Round(0.125, 2) -> 0.12 ! ! !
 
    resultat = resultat * 100 ' convertit en entier
 
    nbUnites = Fix(resultat / 100) ' cherche la partie entière
 
    nbCts = resultat - nbUnites * 100 ' et la partie décimale
 
    nbCts = Fix((nbCts + 2) / 5) * 5 ' arrondi à 5 près
 
    resultat = nbUnites * 100 + nbCts ' calcule le résultat
 
    Arrondi5Cts = resultat / 100 ' convertit en double
 
End Function

16/05/2004, 21h59
Argonz

Ben merci bien pour ce code !!

je vais reprendre tout ça !!

j'ai une autre fonction un peu du genre qu'on ma donner, mais elle arrondit pas a 100 % juste !!!

je vous redirai,

(et merci pour l'edit)
17/05/2004, 08h26
Argonz
Re Salut à tous !!!

Merci de votre aide !!

hpj, j'ai repris ta fonction mot pour mot, elle marche à mérveille (je t'ai cité dans mon code).

au début j'avais un autre système qu'un ami ma donné :
Code:

1 2 3 4 5 6 7 Dim number As Double Dim int_number As Integer number = number * 20 int_number = CInt(number) number = CDec(int_number) number = number / 20
number sera égal au nombre arrondit.

Cela marche bien, le seul défaut :

Citation:

2.225 -> 2.2
2.226 -> 2.2

alors que

Citation:

2.275 -> 2.3
2.279 -> 2.3

On m'a aussi parler d'un fonction Floor, mais je n'ai rien trouver dans l'aide VB à ce sujet, la connaissez vous ??
17/05/2004, 09h55
DarkVader

Ça n'a pourtant rien de compliqué :(

Code:

Arrondi= round (myNumber / precision) * precision
17/05/2004, 12h07
Argonz

Merci pour l'info !!
C'est clair que c'est beaucoup plus simple ...

cependant pour le pinailleur, lorsque l'on se trouve à 0.225 il va arrondir à 0.2 et non à 0.25.

enfin voila...
17/05/2004, 12h31
HPJ

Pour le pinailleur: :wink:

Code:

Arrondi= round ((myNumber + 0.00001) / precision) * precision
17/05/2004, 16h25
Argonz

lol, merci beaucoup :-)

Cela simplifie grandement mon code
17/05/2004, 16h27
HPJ

Je savais bien qu'il y avait plus simple que mon gros algo... Je n'ai jamais été doué en math :wink:

sujet abordé il y a deux ans ici même si je me souviens bien ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function SpecialRound(number As Double, Optional BaseModulo As Integer = 1) 
    SpecialRound = BaseModulo * ((Int(number + BaseModulo / 2)) \ BaseModulo) 
End Function
 
 
 
 
exemple :
 
Private Sub Text1_LostFocus() 
Text1.Text = Format(Arrondi_5Cts(Text1.Text, 5), "###0.00 FRs") 
End Sub 
 
Function Arrondi_5Cts(Number As Double, Optional BaseModulo As Integer) 
Arrondi_5Cts = BaseModulo * (((Int(Number * 100) + BaseModulo / 2)) \ BaseModulo) / 100 
End Function

17/05/2004, 17h51
HPJ

SpecialRound(0.125, 2) -> 0 :!: :!: :!:
17/05/2004, 17h59
SpaceFrog

Oui je sais... :oops:

Y'avait eu à l'époque tou un thread là dessus et les corrections à y approter...

mais l'autre marche !!!