أريد دالة تقريب رقم لأقرب رقم يقبل القسمة على اي رقم انا احدده ..

حسب معلوماتي حول دوال التقريب في برنامج فيجوال ستوديو وحسب ما قرأته في مكتبة MSDN

عن تقريب الارقام العشرية والت تأتي بعد العلامة العشرية

مثلا الرقم

2.54

يتم تقريبة الي الرقم 2.5 بستخدام الدالة Round ويكون صيغة الدالة كالتالي

TextBox1.Text = Math.Round(CType(TextBox1.Text, Double), 2)

مثال آخر عن الدالة Truncate ومن اختصاصات الدالة الغاء الارقام التي تأتي بعد العلامة العشرية وبتكون صيغة الدالة كالتالي

TextBox1.Text = Math.Truncate(CType(TextBox1.Text, Double))

وهكذا

اما في حاله طلبك وهو تقريب العدد الصحيح الي اقرب عدد صحيح وهو من 16 الي 20 او من 8 الي 10 وهكذا

فمن دوال التقريب المستخدمة في مثل هذه الامور الدالة

 CINT

16.16 يتم تقريبة الي 17

19.7 يتم تقريبة الي 20

وهكذا

مثال علي ذلك

TextBox1.Text = CInt(TextBox2.Text)

راجع دوال التحويل في مكتبة MSDN

هذا ما اعرفة

والله اعلم

شكرا يا باشا على التجاوب .. بس الظاهر انك ما فهمت سؤالي ..

انا لا اريد التقريب من 16.5 الى 17 ... لا .. بل اريد التقريب من انتيجر الى انتيجر .. وكيف يكون .. يكون هكذا .. اذا ادخل المستخدم الرقم 5 على اساس التقريب يكون لأقرب انتيجر يقبل القسمة على 5 فيكون هكذا :

16 = 20

21 = 25

72 = 75

22 = 25

111 = 115

503 = 505

1 = 5

9 = 10

اعتقد الان وصلت الفكرة بعد المثال ؟ فانا أعرف انه لا يوجد دالة بعينها تقوم بذلك .. بل أنا اريد اسطر الشفرة لعمل ذلك ..

Private Sub btnRound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRound.Click
		Dim modValue As Integer = CInt(txtNum1.Text) Mod CInt(txtNum2.Text)
		Dim result As Integer = CInt(txtNum1.Text) + (CInt(txtNum2.Text) - modValue)
		MsgBox(result)
	End Sub

الاخوة الاعزاء

السلام عليكم

نفس السؤال المطروح للاجابة

كيف يمكن تطبيقة على الاكسيس

و لو سمحتم لو احد كتب كود كيف ادخلة بالاستعلام

ارجوا الافادة

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

GHOST2010 كتب:

Private Sub btnRound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRound.Click
		Dim modValue As Integer = CInt(txtNum1.Text) Mod CInt(txtNum2.Text)
		Dim result As Integer = CInt(txtNum1.Text) + (CInt(txtNum2.Text) - modValue)
		MsgBox(result)
	End Sub

بالضبط .. هو ده الحل .. تسلم عزيزي جوست .. وشكرا لكل من شاركوا في وضع الحلول ..