منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

أريد مساعدة في كود أو داله تقريب أخر رقم الي 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)

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

السلام عليكم

جرب التالي

PHP كود :

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

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

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

Ahmed Abdulla