textbox küsüratlı sonuç bulma

[ertanatalar]

Selamlar textbox3 içerisinde küsüratlı sonuç hesaplamak istiyorum. Eklemem gereken kod nedir?

Private Sub CommandButton1_Click()

TextBox3.Text = (CDbl(TextBox1) * CDbl(TextBox2))

End Sub

 

[Korhan Ayhan]

Deneyiniz.

1-)

Private Sub CommandButton1_Click()
    TextBox3 = Replace(TextBox1 * TextBox2, ".", ",")
End Sub

2-)

Private Sub CommandButton1_Click()
    TextBox3 = FormatNumber(TextBox1 * TextBox2, 2)
End Sub

3-)

Private Sub CommandButton1_Click()
    TextBox3 = FormatCurrency(TextBox1 * TextBox2, 2)
End Sub

 

[ertanatalar]

Deneyiniz.

1-)

Private Sub CommandButton1_Click()
    TextBox3 = Replace(TextBox1 * TextBox2, ".", ",")
End Sub

2-)

Private Sub CommandButton1_Click()
    TextBox3 = FormatNumber(TextBox1 * TextBox2, 2)
End Sub

3-)

Private Sub CommandButton1_Click()
    TextBox3 = FormatCurrency(TextBox1 * TextBox2, 2)
End Sub

teşekkürler