نوشته شده توسط
sadeghlinux
سلام دوستان
من یه تکست باکس دارم که داخلش یه مبلغی رو وارد میکنم
بعد در تکست باکس دوم درصد رو وارد میکنم که مثلا 20 درصد اضافه بشه (درصد برای اعداد مختلف تغییر می کنه) و در تکست باکس سوم مبلغ نهایی نشون داده میشه.
حالا من کاری که میخام بکنم اینه که وقتی به مبلغ پایه 20 درصد اضافه میکنم عدد نهایی عدد رُند بشه، مثلا وقتی میشه 250200 تومان من میخام بشه 250000 تومان و یا اگه شد 296920 تومان که میخام بشه 270000 تومان
بهتره بگم زیر 500 تومان گرد بشه پایین بالای 500 تومان گرد بشه بالا
" در ضمن تمامی اعداد صحیح می باشد و اعداد اعشاری استفاده نمی کنم "
لطفا راهنمایی بفرمایید یا اگه قطعه کدی دارید رو برام بفرستید
ممنون
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