zero apres virguleRésolu

Question

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+

cs_JMO · Accepted Answer

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

cs_Exploreur · Answer

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

drikce06 · Answer

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:

cs_Exploreur · Answer

Ok Drickce06...alors j'ai rien dit, il fait juste alors le Val ?
A+
Exploreur

drikce06 · Answer

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:

drikce06 · Answer

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:

cs_jolicoeur79 · Answer

merci jmo,exploreur,drikce  pour vous aides j'ai essayer avec "formatnumber " il ca marche bien merci b+

Zero apres virgule

7 réponses

Votre réponse