Ce code sert a arrondire un nombre a 10e-2 pret. Il peut etre tres utile dans les api monnaitaire car meme si vous votre nombre ne possede pas de virgule ce module vous en mettra une et vous fera apparaitre les 2 zeros suivant. S'il votre nombre n'a qu'un nombre apres la virgule, il vous mettra un zero en derniere position
Source / Exemple :
Public Function Aron(entree)
test = entree
entree = Int(test)
sortie = entree
test = test - entree
test = Round(test, 2)
If test = "0" Then
sortie = sortie & ",00"
Aron = sortie
Exit Function
End If
entree = Int(test * 10)
sortie = sortie & "," & entree
test = (test * 100) - (entree * 10)
If test = "0" Then
sortie = sortie & "0"
Else
sortie = sortie & test
End If
Aron = sortie
End Function
Conclusion :
Voila, alors pour l'utiliser, vous le posé dans un module et dans votre code vous mettez genre
resultat = aron(text1.text)
'text1.text doit etre un nombre
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.