كيفية تقريب الارقام لأقرب نصف

[zamzam_mah]

الرجاء المساعدة فى كيفية تقريب رقم الى اقرب تصف مثلا كما فى الاكسل باستخدام دالة ceiling

مثال الرقم 12.3 اريده عندما يقرب الى اقرب نصف يصبح 12.5

مثال الرقم 12.7 اريده عندما يقرب الى اقرب نصف يصبح 13

وهكذا وشكرا

[التقني]

راجع هذا المواضيع:

http://www.officena.net/ib/index.php?showtopic=11360&hl

[zamzam_mah]

المواضيع السابقة بعيدة عن ما استفسر عنه ارجو الاجابة محددة بما اطلبه

[rudwan]

السلام عليكم

يمكنك استخدام الدالة التالية

Public Function RoundUpTo5(ByVal S) As Double On Error Resume Next
Select Case S - Fix(S)
Case 0: RoundUpTo5 = S
Case 0 To 0.5: RoundUpTo5 = Fix(S) + 0.5
Case Is > 0.5: RoundUpTo5 = Round(S, 0)
End Select
End Function

تم تعديل مارس 11, 2006 بواسطه rudwan

[zamzam_mah]

شكرا يا اخى الكريم على الدالة ولكن معذرة فانا جديد على الاكسيس

و اريد ربط هذه الدالة بحقل فى جدول او استعلام لتتم عليه الدالة ولا اعرف كيف

واذا احتجنا مثلا عمل عمليه حسابية على 3 حقول واريد صنع داله وكيفية تطبيقها ارجو الشرح بدقة

طبعا لا اريد دوال محفوظة

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

[rudwan]

لاستخدام أي دالة في الاستعلام , اعمل استعلام جديد من جدول موجود عندك

اختر الحق الذي تريد تقريبه لأقرب نصف و ليكن اسمه مثلا Amount

الآن اضف حقل جديد الى الاستعلام و أكتب فيه

Round:roundupto5([amount])

طبعا و ذلك بعد أن تكون قد عملت وحدة نمطية جديده و لصقت فيها الدالة المذكورة أعلاه و مثله عمليات الجمع أيضا , تجمع حقلين هكذا

Total:[Field1]+[Field2]

تم تعديل مارس 9, 2006 بواسطه rudwan

[zamzam_mah]

شكرا يا اخى الكريم على حسن التعاون

ولكن لقلة خبرتى لم استطع استخدام الدالة بصورة صحيحة

ارجو ا تدرجه فى ملف اكسيس مع شرح مبسط لخطوات كتابة الدالة فى الملف

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

[rudwan]

انظر المثال المرفق

افتح الموديول الجديد تجد كيفية وضع الدالة

افتح الاستعلام تجد كيفية تطبيقها

RoundUpTo5.rar

[zamzam_mah]

اذا وجد غير الشكر لفعلت ولكن جزاك الله خيرا

سؤال اخر

الدالة السابقة بها متغير واحد

لو اردنا مثلا كتابه داله بها ثلاث متغيرات فارجو مثال بسيط

[rudwan]

هنا أصبح موضوعا آخر

أرجو فتح موضوع جديد مع تحديد ماهي المتغيرات المطلوبة بالضبط