مشکل صرب یک عدد صحیح در یک رقم اعشاری

[farhad85]

سلام من 3 تا تکس دارم که تکس اول یک مقدارش مثلا9000 هستش و تکس دوم0/9 هست حالا میخوام حاصل ضرب در تکس سوم نمایش داده بشه
حالا هرچی که هست اگه صحیح هست نشونش یده اگه اغشار هم هست اعشار!؟
الان جواب این حاصل ضرب 8100 هستش ولی داخل تکس سوم من صفر مینویسه
اینم کدش:

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

میحوام کلا اگه جواب اعشاری باشه. اعشار باشه. اعشاراش معلوم باشن داخل تکس 3

ممنونم

[محمد آشتیانی]

سلام

به این شکل باید باشه


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

ضمن اینکه علامت اعشار نقطه باید باشه نه / (مثل 0.9)


موفق باشید

[farhad85]

آقا ممنونم مشکلم حل شد.