Discussion :

[AlainTech]

Suite à cette discussion, j'ai développé un petit "Extended Round" qui peut arrondir aussi bien à gauche qu'à droite de la virgule.
Une option (RoundUp) permet de forcer à l'arrondi supérieur (en valeur absolue).
Pour arrondir à gauche de la virgule, utiliser un nombre négatif pour Digits.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ExtRound(Number, _
                  Optional Digits As Integer = 0, _
                  Optional RoundUp As Boolean = False) _
                  As Double
 
  If RoundUp Then
    If Not Fix(Number * 10 ^ Digits) = Number * 10 ^ Digits Then
      ExtRound = (Fix(Number * 10 ^ Digits) + IIf(Number > 0, 1, -1)) / 10 ^ Digits
    End If
  Else
    ExtRound = Round(Number * 10 ^ Digits) / 10 ^ Digits
  End If
End Function

Comme toutes les fonctions ayant plusieurs paramètres optionnels, celle-ci accepte les paramètres nommés:

Code :

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

  MsgBox ExtRound(iVal, RoundUp:=True)

[Delbeke]

Pas mal du tout, j'ai particulièrement aprécié le soucis du détail

Code :

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

+ IIf(Number > 0, 1, -1))

[sovo]

Tres interessant.

Code :

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

  MsgBox ExtRound(iVal, RoundUp:=True)

Ca existe aussi en vb ?? je ne savais pas ca me rappel mon bon vieux pascal (voir delphi).

[ThierryAIM]

Tres interessant.

Ca existe aussi en vb ?? je ne savais pas ca me rappel mon bon vieux pascal (voir delphi).

ca existe surtout en VBA

Mais en vb aussi, pour nommer un paramètre optionnel, comme l'a dit Alain

(rien à voir, à part la similitude, avec Delphi ou TOUTES les opérations sont écrites avec := )

[ThierryAIM]

juste pour le fun :

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
18
Public Enum RoundUpDown
    RoundUp = -1
    RoundDown = 0
End Enum
 
Function ExtRound(Number, _
                  Optional Digits As Integer = 0, _
                  Optional RoundUp As RoundUpDown = 0) _
                  As Double
 
    If RoundUp Then
        If Not Fix(Number * 10 ^ Digits) = Number * 10 ^ Digits Then
            ExtRound = (Fix(Number * 10 ^ Digits) + IIf(Number > 0, 1, -1)) / 10 ^ Digits
        End If
    Else
        ExtRound = Round(Number * 10 ^ Digits) / 10 ^ Digits
    End If
End Function

Code :

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

    MsgBox ExtRound(1.234, 1, RoundUp)

joli code Alain, je le mets de suite dans la FAQ

[AlainTech]

Merci pour le fun sauf que...

Il ne s'agit pas de Up ou Down.

Si on ne force pas Up, on fait un arrondi "normal" à 4-5.

J'aurais, effectivement, pu faire un tri-state: Up, 4-5 et Down.
Je vais y réfléchir pour essayer d'en faire quelque chose de "propre".

[Asdorve]

Super! Merci!

[thetacos21]

Ton code me renvoit 0 pour tout argument entier quand je lui demande un roundup.
C est normal?

Sinon c est bien et ca me sert toutes les 5 lignes en ce moment !!!


JF

[philben]

bonjour,

j'avais proposé cette solution en VBA qui permet de s'affranchir du test conditionnel.

A voir si ça fonctionne en VB6 ?

Cordialement,

Philippe