ARRONDIR LE RESULTAT

Bonjour

je demande une aide j'ai cherché partout j'ai pas trouvé.
je voudrais arrondir tous les resultats qui s'affiche sur le formulaire
du Bulletin de salaire qui ont des virgules:
salaire brut
total retenue
retenue ipres
retenue Css
net à payer

je veux arrondir si le resultats est compris aprés la virgule entre
0 à 5 on ajoute rien et si le resultat est compris aprés la virgule
entre 6 et 9 on ajoute +1

merci de nous répondre  

SI tu cherches arrondir sur le forum, tu trouveras des fonctions qui répondent à tes besoins.

J'ai fait la même la semaine derniere et j'ai trouvé en moins de cinq minutes.

Bonne recherche!

bonjourcheval , il faudrait avoir tes super lunettes pour cela !

Bonjour

j'ai utiliser ce code pour arrondir un resultat mais j'ai des
difficultés pour utiliser ce code pour arrondir plusieurs
résultats sur un formulaire si vous pouvez nous expliquer
le solution.  

if nb-int(nb)<=0.5 then
nb = int(nb)
else
nb = int(nb)+1
end if

waouw c'est si dur que ça ???

Function arrondi(ByVal nb AsObject) AsInteger

If nb - Int(nb) <= 0.5 Then

nb = Int(nb)

Else

nb = Int(nb) + 1

EndIf

Return nb

EndFunction

il  a débogage sur AsObject le message est :
Erreur de compilation 
Attendu : séparateur de liste ou) 

Function arrondi(ByVal nb AsObject) AsInteger

If nb - Int(nb) <= 0.5 Then

nb = Int(nb)

Else

nb = Int(nb) + 1

End If

Return nb

End Function

As Any en vb6

As Any en VB6


j'ai pas compris les function en VB 6 je vous de nous corriger.

ou bien tu peux mettre as Double... C'est le plus gros (je crois) nombre possible. Il prend les nombres à virgules et peut se rendre à un nombre de 15 bit si je me rapelle bien. Ça devrait etre suffisant...

Ensuite pour utiliser ta fonction tu n'as qu'à écrire

Arrondi tonNombre

Exemple

Arrondi 45.64

Et Gillardg, tu n'es pas dans le bon langage

Ceci n'est pas du VB6!!

Return en VB6 n'existe pas

Écrit ta fonction comme suit :


Function arrondi(ByVal nb As Double) As Integer
'Tu n'avais pas d'espaces entre les As et les types

If nb - Int(nb) <= 0.5 Then

nb = Int(nb)

Else

nb = Int(nb) + 1

EndIf

arrondi = nb

EndFunction


Walla