[AC-2007] Modification de fonction.

[Bernard67]

Bonjour le forum,

Je souhaite modifier la fonction faite par TOFALU, que je remercie chaleureusement, mais je n'arrive pas à le faire.

Je souhaiterai que cette fonction qui arrondi à la centaine superieure, arrondisse à 0 les sommes qui sont inférieure à 50,0 et pour les sommes superieures à 50,0 arrondisse à la centaine superieure

Code :

1
2
3
4
5
Function arrondiSup(sglValue As Single, intPosition As Integer) As Single
    Dim intTemp As Integer
    intTemp = 10 ^ intPosition
    arrondiSup = (sglValue \ intTemp - Not (sglValue Mod intTemp = 0)) * intTemp
End Function

Je vous remercie pour l'aide.
Cordialement

[argyronet]

Bonjour,

Je l'ai modifié ainsi :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Function ArrondiSup(ByVal TargetValue As Single, ByVal MaxValueToZero As Single, Optional ByVal Position As Integer = 2) As Single
Dim intTemp                                            As Integer
Dim sngRoundResult                                     As Single
    intTemp = 10 ^ Position
    sngRoundResult = (TargetValue \ intTemp - Not (TargetValue Mod intTemp = 0)) * intTemp
    If TargetValue <= MaxValueToZero Then
        sngRoundResult = 0
    End If
    ArrondiSup = sngRoundResult
End Function

Ce qui donne :

Code :

1
2
3
4
5
6
?ArrondiSup(501,50)
 600 
?ArrondiSup(49,50)
 0 
?ArrondiSup(89,50)
 100

Argy

[Bernard67]

Merci argyronet pour ta solution.

Comme j'active la fonction depuis un champ

Code :

A Facturer: ArrondiSup([Expr1];2)

Je ne sais pas ou placer ce code :

Code :

1
2
3
4
5
6
?ArrondiSup(501,50)
 600 
?ArrondiSup(49,50)
 0 
?ArrondiSup(89,50)
 100

Car sans ce code :
11426 me donne 11500 au lieu de 11400
6325 me donne 6400 au lieu de 6300

Merci pour ton aide

[argyronet]

C'est une fonction qui arrondie au supérieur donc 11426 donnera 11500 au même titre que 6325 donnera 6400.

Code :

1
2
3
4
5
6
7
 
?ArrondiSup(501,50)
 600 
?ArrondiSup(49,50)
 0 
?ArrondiSup(89,50)
 100

est exécuté dans la fenêtre de debogage.
Dans ton cas ce sera :

Code :

A Facturer: ArrondiSup([Expr1];50)

2 étant affecté par défaut pour définir l'arrondi à la centaine...

Argy

[Bernard67]

Je me suis mal exprimé car les valeurs comme :

11426,46235 doivent etre arrondi a la centaine inferieure = 11400
6325,83832 doivent etre arrondi a la centaine inferieure = 6300

Pour les valeurs sup c'est OK ainsi que pour les valeurs inferieures a 50 = 0

Merci pour l'aide

[argyronet]

Humm, en effet, ce n'était pas clair
Comment la fonction doit-elle choisir entre ArrondiSup et ArrondiInf car là, tu ne donnes pas les règles ?

Argy

[Bernard67]

C'est un champ qui s'appelle"FACTURATION" qui comporte des montants avec des décimales.
A coté de ce champ, je dois le decoder, à la centaine superieure ou inferieure ou = à 0 si le montant est inferieur à 50,0

=ArrondiSup([FACTURATION];50)

Avec la fonction que tu m'a donné cela fonctionne pour les montants supérieurs et aussi pour ceux qui doivent etre = 0