Zero apres virgule [Résolu]

Messages postés
63
Date d'inscription
samedi 2 octobre 2004
Dernière intervention
1 avril 2018
- - Dernière réponse : cs_jolicoeur79
Messages postés
63
Date d'inscription
samedi 2 octobre 2004
Dernière intervention
1 avril 2018
- 14 janv. 2007 à 01:10
salut les mecs
j'ai un petit probleme :
j'ai creer un table access avec un champs monetaire et un interface vb lorsque je veux aficher le montant saisie dans le champs access dans un textbox vb il ne me donne pas les zero qui ont apres le virgule o le point ( 20 au lieu 20.00 et 20.1 au lieu 20.10 ).
et merci de votre comprehension et votre aide a+
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
26
3
Merci
 Bonjour,

var1 = "20"
var2 = "20,1"
MsgBox FormatNumber(var1,2) &vbCr& FormatNumber(var2,2)  'retourne 20,00 et 20,10

var3 = "12,514546"
MsgBox Round(var3,3) 'retourne 12,515
MsgBox CInt(var3)    'retourne 13
MsgBox Fix(var3)     'retourne 12
MsgBox FormatNumber(var3,3) 'retourne 12,515

jean-marc

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 91 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
16
0
Merci
Salut,
Peut-être cela aussi...Pas sur...
Dim RecupValeur as Long
Dim Arrondi as String
Arrondi = Round(Text1.Text ,2)
RecupValeur = Val(Text1.Text)

A+
Exploreur
Commenter la réponse de cs_Exploreur
Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Dernière intervention
29 mai 2008
6
0
Merci
Salut, le probleme avec round c'est que :

Dim valeur as double
valeur = 7.99
round(valeur,2)=8 et non 8,00
donc il faut passer par la fonction Format!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
16
0
Merci
Ok Drickce06...alors j'ai rien dit, il fait juste alors le Val ?
A+
Exploreur
Commenter la réponse de cs_Exploreur
Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Dernière intervention
29 mai 2008
6
0
Merci
Autant pour moi ça donne bien 7.99 mais je me suis planté dans l'exemple c'est 7.999 qui donne 8, en revanche ce meme round avec comme valeur 20.1 donnera 20.1 et non 20.10!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
2247
Date d'inscription
lundi 29 mai 2006
Dernière intervention
29 mai 2008
6
0
Merci
valeur = CStr(7.1)
valeur = Format(valeur, "#.00")
MsgBox valeur

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
Messages postés
63
Date d'inscription
samedi 2 octobre 2004
Dernière intervention
1 avril 2018
0
Merci
merci jmo,exploreur,drikce  pour vous aides j'ai essayer avec "formatnumber " il ca marche bien merci b+
Commenter la réponse de cs_jolicoeur79

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.