Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

BleBugs

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

Messages recommandés

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...

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×