CONVERTISSEUR EUROS

-
 ckris -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2150-convertisseur-euros

Pas mal et toujours pratique mais il y a plus simple (en restant complet tout de meme :)

Const TauxEuro As Double = 6.55957

Function EnleveLettres(ByVal TextBox As TextBox)

For i = 1 To Len(TextBox)

Dim Char, Final As String
Char = Mid(TextBox, i, 1)

If Char "0" Or Char "1" Or Char = "2" Or Char = "3" Or Char = "4" Or Char = "5" Or Char = "6" Or Char = "7" Or Char = "8" Or Char = "9" Or Char = "," Then

Final = Final & Char

ElseIf Char = "." Then

Final = Final & ","

End If


Next i

If chkConvertir.Enabled True Then CmdConvertir.Value True

TextBox.Text = Final
TextBox.SelStart = Len(Final)

End Function


Private Sub CmdConvertir_Click()

If txtFrancs "" Then txtFrancs "0"
If txtEuros "" Then txtEuros "0"


If optEvF.Value = True Then

txtFrancs.Text = Round(txtEuros.Text * TauxEuro, 2)

ElseIf optFvE = True Then

txtEuros.Text = Round(txtFrancs.Text / TauxEuro, 2)

End If

End Sub

Private Sub txtEuros_Change()

EnleveLettres txtEuros

End Sub

Private Sub txtEuros_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

optEvF.Value = True
CmdConvertir.Value = True

End If

End Sub

Private Sub txtFrancs_Change()

EnleveLettres txtFrancs

End Sub

Private Sub txtFrancs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

optFvE.Value = True
CmdConvertir.Value = True

End If

End Sub
Le supermarché n'est pas le seul endroit où l'argent navigue tu sais quand tu dois saisir le règlement de factures rédigées en francs mais payer en euros un ALT TAB est plus rapide que de servir d'une calculette même d'une TI82
C'est pratique ! Tu prend ton ordinateur au supermarché ? Bon courage alors. Fait comme moi, prend une calculette, j'ai fait un petit prog de conversion sur ma ti82 et c'est moi encombrant et plus simple !
Un format monétaire a forcement 2 décimales et celà fait 6.56 fr et non pas 6.55 fr
Un format monéataire a forcement 2 décimales et celà fait 6.56 fr et non pas 6.55 fr
Afficher les 8 commentaires