ARRONDIR DES NOMBRES À UN CERTAIN NOMBRE DE DÉCIMALES
Xentor
-
15 nov. 2001 à 07:36
mprog67
Messages postés28Date d'inscriptionmercredi 24 mars 2010StatutMembreDernière intervention14 mai 2012
-
14 mai 2012 à 20:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
mprog67
Messages postés28Date d'inscriptionmercredi 24 mars 2010StatutMembreDernière intervention14 mai 2012 14 mai 2012 à 20:29
Bonsoir à tous, mois j'utilise cette fonction pour arrondir un nombre
Public Function RoundUp(Nb As Double) As Integer
' On déclare une variable qui contiendra la valeur décimale
Dim Décimale As Integer
' Extraire la décimale
Décimale = Nb * 100 - Int(Nb) * 100
If Décimale > 0 Then Nb = Int(Nb) + 1
RoundUp = Nb
End Function
rrr_zidane_8
Messages postés2Date d'inscriptionmardi 19 avril 2005StatutMembreDernière intervention12 octobre 2006 30 nov. 2006 à 19:29
MERCI BEAUCOUP POUR VOTRE EFFORT
ikariShinji
Messages postés18Date d'inscriptionmercredi 13 mars 2002StatutMembreDernière intervention 2 juin 2005 24 sept. 2003 à 17:58
"Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales."
Bien sûr Xentor, mais la fonction Format permet en plus une mise en forme en séparant les milliers par un espace. Par exemple :
Format(50350.489, "###,###,###.00") donne : "50 350,49".
Vous avez raison tous les deux, la seule difference c qu'avec la version de Supo, c que ca marche aussi en VBA. Comme dans Excel ou Access par exemple.
Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales.
Ex : Round(56.125756,3) renvoie 56.126
14 mai 2012 à 20:29
Public Function RoundUp(Nb As Double) As Integer
' On déclare une variable qui contiendra la valeur décimale
Dim Décimale As Integer
' Extraire la décimale
Décimale = Nb * 100 - Int(Nb) * 100
If Décimale > 0 Then Nb = Int(Nb) + 1
RoundUp = Nb
End Function
30 nov. 2006 à 19:29
24 sept. 2003 à 17:58
Bien sûr Xentor, mais la fonction Format permet en plus une mise en forme en séparant les milliers par un espace. Par exemple :
Format(50350.489, "###,###,###.00") donne : "50 350,49".
15 nov. 2001 à 12:02
text1.text = format (77 / 78,"#0,000")
15 nov. 2001 à 10:19
(Pour pinailler quoi.. et assurer le passage de ta fonction a vb.net ;)
15 nov. 2001 à 09:30
15 nov. 2001 à 07:36
Ex : Round(56.125756,3) renvoie 56.126