Faire des calcule textbox
thomer12
Messages postés
2
Statut
Membre
-
thomer12 Messages postés 2 Statut Membre -
thomer12 Messages postés 2 Statut Membre -
bonjour voici un bout de mon code excel et je cherche des solution
Private Sub CommandButton1_Click()
InnerCity = txtInnerCity.Text
BasicPay = txtBasicSalary.Text
OverTime = txtOverTime.Text
lblGrossPay.Caption = InnerCity + BasicPay + OverTime
End Sub
Mon Problème est le suivant au niveau de Grosspay il n'accepte pas de faire des calcule avec des décimal et affiche erreur de compatibilité de type13 pouvez vous m'aider merci
Private Sub CommandButton1_Click()
InnerCity = txtInnerCity.Text
BasicPay = txtBasicSalary.Text
OverTime = txtOverTime.Text
lblGrossPay.Caption = InnerCity + BasicPay + OverTime
End Sub
Mon Problème est le suivant au niveau de Grosspay il n'accepte pas de faire des calcule avec des décimal et affiche erreur de compatibilité de type13 pouvez vous m'aider merci
1 réponse
-
Bonjour,
Essaie avecPrivate Sub CommandButton1_Click()
Dim InnerCity As Double, BasicPay As Double, OverTime As Double
InnerCity = CDbl(Replace(txtInnerCity.Text, ".", ","))
BasicPay = CDbl(Replace(txtBasicSalary.Text, ".", ","))
OverTime = CDbl(Replace(txtOverTime.Text, ".", ","))
lblGrossPay.Caption = InnerCity + BasicPay + OverTime
End Sub
A+
