ARRONDIR LE RESULTAT

Question

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

gillardg · Answer

round   ???

Bonjour chez vous !

bonjourcheval · Answer

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!

gillardg · Answer

bonjourcheval , il faudrait avoir tes super lunettes pour cela !

Bonjour chez vous !

amigna · Answer

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

gillardg · Answer

waouw c'est si dur que ça ???

Function arrondi(
ByVal nb 
As
Object) 
As
Integer

If nb - Int(nb) <= 0.5 
Thennb = Int(nb)

Elsenb = Int(nb) + 1

End
If

Return nb

End
Function

Bonjour chez vous !

amigna · Answer

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

gillardg · Answer

As Any en vb6

Bonjour chez vous !

amigna · Answer

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

bonjourcheval · Answer

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 Thennb Int(nb)

Else
nb = Int(nb) + 1

End
If

arrondi = 
nb 

End
Function

Walla

gillardg · Answer

puisqu'il n' y a pas return en vb6 , c'est une bonne raison de + pour passer à vb.net

Bonjour chez vous !

bonjourcheval · Answer

Moi j'aime bien!

Ça nous donne une variable gratuite. dans chaque fonction qu'on peut faire ce que l'on veut avec!

C#, c'est du vb.net ou non?

gillardg · Answer

C# c'est un enfant de C mélangé avec delphi et java (enfin je crois )

Bonjour chez vous !

amigna · Answer

La fonction ne fonctionne pas il arrondi pas les resultats je vous 
demande de aidez à corriger. j'ai essayé as double ça ne fonctionne
pas.

Function arrondi(ByVal nb As Object) As Integer

If nb - Int(nb) <= 0.5 Then

nb = Int(nb)

Else

nb = Int(nb) + 1

End If

arrondi = nb

End Function

gillardg · Answer

chez moi ça fonctionne très bien 

dim x as int32=arrondi(53.25)
me donne x= 53

Bonjour chez vous !

bonjourcheval · Answer

Il fait quoi comme erreur?

Et montre nous comment tu utilises la fonction

amigna · Answer

Vous avez mi la fontion dans les modules ou bien
quoi d'autre vous avez passé 
sérieusement je ne comprends pas comment fonctionne les
fonction en VB 6

bonjourcheval · Answer

Dans ton formulaire, copie la fonction

Public Function arrondi(ByVal nb As Double) As Integer

If nb - Int(nb) <= 0.5 Then

nb = Int(nb)

Else

nb = Int(nb) + 1

End If

arrondi = nb

End Function

Ensuite, dans à l'endroit où tu veux l'utiliser, par exemple dans le commandboutton1, écrit ceci

Private Sub Command1_Click()
Dim unArrondi as integer
unArrondi = arrondi (35.3)
End Sub

Voilà

amigna · Answer

j'ai mis la fonction dans les modules il ne fonction pas.
et j'ai effacé et je l'ai mis dans le formulaire il ne fonctionne
pas. j'ai pas l'utilisation des fonctions.

gillardg · Answer

es tu sur que tu as vb6??

Bonjour chez vous !

amigna · Answer

oui j'ai VB 6
Je veux arrondir des resultats sur un formulaire 
le resultat salaire brut, total retenu, total cotisation etc...

ARRONDIR LE RESULTAT

34 réponses

Votre réponse

Discussions similaires