Svp aidez moi prob virgule vb

Signaler
Messages postés
5
Date d'inscription
jeudi 21 avril 2016
Statut
Membre
Dernière intervention
23 avril 2016
-
 Mosca -
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
Messages postés
5
Date d'inscription
jeudi 21 avril 2016
Statut
Membre
Dernière intervention
23 avril 2016

je l utiliser mais ca ne marche pas
>
Messages postés
5
Date d'inscription
jeudi 21 avril 2016
Statut
Membre
Dernière intervention
23 avril 2016

Mais si, ça marche. Montre ce tu as fait.
Messages postés
5
Date d'inscription
jeudi 21 avril 2016
Statut
Membre
Dernière intervention
23 avril 2016

es ce que la fonction accepte le (.) ou (,)
>
Messages postés
5
Date d'inscription
jeudi 21 avril 2016
Statut
Membre
Dernière intervention
23 avril 2016

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à