Fa گرد کردن اعداد در مالتی مدیا بیلدر

[mojtabafuladii]

سلام به همه

میخواستم بدونم چطور میشه در مالتی مدیا بیلدر به طور مثال عدد

1.75552222
رو به
1.8
تبدیل کرد . منظورم همون رند کردن اعشار عدد اون هست

لطفا با ذکر مثال

 

[the_king]

سلام به همه

میخواستم بدونم چطور میشه در مالتی مدیا بیلدر به طور مثال عدد

1.75552222
رو به
1.8
تبدیل کرد . منظورم همون رند کردن اعشار عدد اون هست

لطفا با ذکر مثال

m تعداد رقم های بعد از اعشاری است که گرد کردن رو بعد از اون انجام میدید. فرضا اگر m برابر 0 بود، 1.75552222 به 2 گرد میشد.

n = 1.75552222
m = 1

p = 1
If (m > 0) Then
  For i = 1 To m
    p = p * 10
  Next i
End
If (n < 0) Then
  q = -n * p
  r = INT(q)
Else
  q = n * p
  r = INT(q)
End
If (q => r + 0.5) Then
  r = r + 1
End
If (n < 0) Then
  r = -r / p
Else
  r = r / p
End
Message("","r")

 

[mojtabafuladii]

سلام
بی نهایت سپاسگزارم
واقعا ممنون مشکل بزرگی رو برام حل کردین