Yüzde indirim yapıp para formatında hatalı sonuç

[uyecik]

Başlıkta da söylediğim gibi Ana Paraya yüzde indirim yaptığımda sonuç hatalı çıkıyor. Ama hata sadece Sonucu gösterdiğim textbox da para formatında gösterdiğim de oluyor. Bir de 10,20,50 gibi yüzde indirimler de sorun yok da 1,5,15 gibi sonuçlar da hata oluşuyor.
Dosyayı da ekledim ama aksilik olursa diye kısaca kodları da yazıyorum.

Option Explicit
Private Sub CommandButton2_Click()
TextBox3.Value = ((CSng(TextBox1.Value) - (CSng(TextBox1.Value) * CDbl(TextBox2.Value) / 100)))
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = FormatCurrency(TextBox1.Text, 2)
End Sub
Private Sub TextBox3_Change()
TextBox3.Text = FormatCurrency(TextBox3.Text, 2)
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.

Private Sub CommandButton2_Click()
TextBox3.Value = FormatCurrency((TextBox1.Value * TextBox2.Value) / 100, 2)
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = FormatCurrency(TextBox1.Text, 2)
End Sub

 

[uyecik]

Merhaba.
Aşağıdaki kodu kullanın.

Private Sub CommandButton2_Click()
TextBox3.Value = FormatCurrency((TextBox1.Value * TextBox2.Value) / 100, 2)
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = FormatCurrency(TextBox1.Text, 2)
End Sub

Hocam gerçekten çok teşekkür ederim. Sanırım buradaki mantık TL'nin gözükmesini istediğimiz TextBox'ın Change olayına bir şey yazmamak. Doğrumu anladım. Başka bir değişiklik göremedim.

 

[Muzaffer Ali]

Hesaplama kodu yanlıştı düzelttim. (CommandButton2_Click)
TextBox3_Change olayında sorun yok ama gereksiz olduğu için kaldırdım.