Discussion :

[alicia26]

bonjour à tous
j'ai cette petite fonction et j'ignore comment arrondir mon résultat au supérieur.
Du genre solde=1358,784 il doit m'afficher 1358,78

Code :

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

1
2
3
4
5
6
7
Private Sub Calcul_frais_Click()
Dim tot As Double
FraisMission = Hebergement + Transport + Restauration + Telephone + Divers + Txtautre
Txtajustif = Transport + Telephone + Divers + Txtautre + Hebergement
tot = Val((Hebergement + Transport + Restauration + Telephone + Divers + Txtautre) / 655.957)
euro = tot
solde = Val((Txtajustif) / 655.957)

merci de votre support!

[binouzzz19]

Salut,

Je te propose d'aller voir ici :

http://www.developpez.net/forums/d41...i-sous-access/

Ca peut t'aider je pense.

Cdlt.

[alicia26]

salut et merci pour ta réponse
j'avais déjà jeter un coup d'oeil là dessus,mais le résultat n'était pas satisfaisant

Code :

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

1
2
3
tot = Round((Hebergement + Transport + Restauration + Telephone + Divers + Txtautre) / 655.957)
euro = tot
solde = Round((Txtajustif) / 655.957)

avec la propriété Standard,
il arrondit juste pour solde=1358,784 ->1359,00

[binouzzz19]

Tu es sur la bonne voie, une recherche plus accentuée aurait pu te permettre de trouver cela :

Code :

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

1
2
3
Round (210.677, 1)  	would return 210.7
Round (210.677, 2) 	would return 210,68
Round (210.677) 	would return 211

Cordialement.

[alicia26]

j'ai modifié mon code comme suit:

Code :

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

solde = Round(Txtajustif / 655.957, 2)]

avec la propriété Standard décimal 0, me donne un résultat par 1372,00 au lieu de 1372,05

[ilank]

Attends, décimal 0 veut dire que tu ne souhiates pas de décimal après la virgule. Tu auras toujours ",00"

[ilank]

Bonjour,
la fonction Round accepte deux arguments; la valeur à arrondir et la précision.

Ex: Pour une précision au centième (2 décimales après la virgule)

Code :

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

 solde=Round(Txtajustif/655.957,2)