نقل قول نوشته شده توسط the king مشاهده تاپیک

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
Dim n As Decimal, p As Decimal
If Decimal.TryParse(TextBox1.Text, n) AndAlso Decimal.TryParse(TextBox2.Text.Replace("%", ""), p) Then
TextBox3.Text = Math.Round(n * (p / 100) / 10000) * 10000
Else
TextBox3.Text = ""
End If
End Sub
ممنونم از پاسخگویی شما بزرگوار

من کد رو وارد برنامه کردم

داخل برنامه قیمت پایه 48000 زدم، درصد رو 61 وارد کردم مبلغ نهایی شد 77280

حالا میخام این 77280 بشه 77000 تومان ! و به عنوان مثال اگه یه درصد دیگه وارد کردم و عدد نهایی شد 77980 بشه 78000 !

راه حلی هست ؟