Svp aidez moi prob virgule vb

lachgar_hassan Messages postés 5 Date d'inscription jeudi 21 avril 2016 Statut Membre Dernière intervention 23 avril 2016 - 21 avril 2016 à 21:06
 Mosca - 21 avril 2016 à 21:58
salut comme je suis debutant sur vb6 jai creer un peutit projet pour faciliter mon travaille mais le calcule de la somme le resultat n'addition pas la virgule etant donne que j ai utiliser fonction "val" et que j utilise la virgule pas le point merci de me sauver

1 réponse

Bonsoir,

Il suffit d'utiliser la fonction Replace
exemple

n="123,45"
MsgBox Val(n) ' ->123
MsgBox Val(Replace(n, ",", ".")) ' ->123.45
0
lachgar_hassan Messages postés 5 Date d'inscription jeudi 21 avril 2016 Statut Membre Dernière intervention 23 avril 2016
21 avril 2016 à 21:45
je l utiliser mais ca ne marche pas
0
Mosca > lachgar_hassan Messages postés 5 Date d'inscription jeudi 21 avril 2016 Statut Membre Dernière intervention 23 avril 2016
21 avril 2016 à 21:48
Mais si, ça marche. Montre ce tu as fait.
0
lachgar_hassan Messages postés 5 Date d'inscription jeudi 21 avril 2016 Statut Membre Dernière intervention 23 avril 2016
21 avril 2016 à 21:50
es ce que la fonction accepte le (.) ou (,)
0
Mosca > lachgar_hassan Messages postés 5 Date d'inscription jeudi 21 avril 2016 Statut Membre Dernière intervention 23 avril 2016
21 avril 2016 à 21:58
La fonction Replace remplace un texte par une autre
si n="123,45"
Replace(n, ",", ".") donne n="123.45"
on remplace la virgule "," par le point "."

du coup si le texte n="123,45"
Val(Replace(n, ",", ".")) donne le nombre 123.45 avec lequel tu peux faire des calculs.

Voilà
0
Rejoignez-nous