Convertisseur eu-fr fr-eu avec possibilite de changer le taux

Soyez le premier à donner votre avis sur cette source.

Vue 1 973 fois - Téléchargée 147 fois

Description

ben c'est un joli convertisseur comme yen a plein sur ce site

Source / Exemple :


Private Sub Command1_Click()

b = Text1.Text * Text3.Text
a = b
a = Format(a, "#0.00")
Text2.Text = (a)
End Sub

Private Sub Command2_Click()
b = Text4.Text / Text3.Text
a = b
a = Format(a, "#0.00")
Text5.Text = (a)

End Sub

Conclusion :


bof pas de bug comme dans windaube

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
OUINNNNNNNNN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1/10
pyknite
Messages postés
8
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
lolux :) lol
cs_Lolux
Messages postés
159
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
15 septembre 2005
-
32ème convertisseur ... il serai temps qu'on passe vraiment à l'euro maintenant !
pyknite
Messages postés
8
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
ouais je suis daccc avec vous mais bon faut bien commencer par qqch...
++
cs_GPI
Messages postés
5
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
19 août 2003
-
Ou comme ca
Text3.Text = (Format(Val(Text1.Text) * Val(Text2.Text), "#0.00"))
m'enfin, ca reste pas fameux

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.