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

0/5 (8 avis)

Vue 2 218 fois - Téléchargée 210 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
26 avril 2002 à 09:53
OUINNNNNNNNN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1/10
pyknite Messages postés 8 Date d'inscription vendredi 12 avril 2002 Statut Membre Dernière intervention 24 mars 2003
24 avril 2002 à 20:53
lolux :) lol
cs_Lolux Messages postés 159 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 15 septembre 2005
24 avril 2002 à 16:41
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
24 avril 2002 à 11:44
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
24 avril 2002 à 10:53
Ou comme ca
Text3.Text = (Format(Val(Text1.Text) * Val(Text2.Text), "#0.00"))
m'enfin, ca reste pas fameux
Afficher les 8 commentaires

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.