[VBscript] conversion d'un nombre eng vers un nombre fra

[BleBugs]

comment faire pour transformer le symbole des décimale anglais (qui est un point) en une virgule

[leneuf22]

Hem, normalement c'est automatique, tu n'as qu'à essayer :

 

MsgBox 3.55

Et ça t'affiche "3,55"

 

 

 

 

 

Enfin bon, j'essaye quand même

Supposons que ta variable s'appelle "toto" :

 

toto = Remplacer(toto)

 

 

function Remplacer(nombre)

dim chaine, ch, chaine2

chaine = CStr(nombre)

do until len(chaine) = 0

ch = left(chaine, 1)

if (ch = ".") then

chaine2 = chaine2 & ","

else

chaine2 = chaine2 & ch

end if

chaine = right(chaine, len(chaine) - 1)

loop

Remplacer = CDbl(chaine)

end function

 

Mais c'est le comble de la maniaquerie !

 

 

Normalement, ceci devrait suffire :

 

function Remplacer(nombre)

Remplacer = CDbl(nombre)

end function

 

Ou alors je ne comprends pas...