[Ahmed Abdulla]

السلام عليكم

أريد مساعدة في كود أو داله تقريب أخر رقم الي 0  

مثال
الرقم 245 أريد هذا الرقم ليكون 240 

ولكم جزيل الشكر

[محمود بكرى]

اخى هذا ليس تقريب حيث ال 245 لو تم تقريبها لاقرب صفر تعطى 250 فهل تريد استبدال الرقم الاخير بصفر وليس تقريبه

[السرور]

هذه طريقة التقريب لأقرب 10 في الدت نت

PHP كود :

Dim n
n = 245

Dim m
m = (Math.Round(n / 10) * 10)

' 245 = 240
' 246 = 250 


وفي بيسك 6 فقط تحذف Math

---

وهذه توضيح لكل ارقام الاحاد للتقريب لاقرب 10

كود :

' 240 = 240
' 241 = 240
' 242 = 240
' 243 = 240
' 244 = 240
' 245 = 240
' 246 = 250
' 247 = 250
' 248 = 250
' 249 = 250

---

معروف ان الرقم 5 عادة يكون ضمن الارقام الكريمة (5،6،7،8،9) ولكن هناك حالة نسيت اسمها يتم اعتبارها ضمن الارقام البخيلة (0،1،2،3،4،5)

---

واعتقد ان المقصود في هذا الموضوع التقدير وليس التقريب

[AL_BRNS]

السلام عليكم

جرب التالي

PHP كود :

Private Sub Command1_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) + "0"
End Sub 


بالتوفيق اخي .

[Ahmed Abdulla]

جزاكم الله خيرا