تقريب لأقرب عشره فى الأعداد الصحيحة

[خالد عبد الغفار]

الإخوة الأعزاء سلام الله عليكم 

اذا كان لدى حقل من نوع رقم دائما عدد صحيح المطلوب ضرب هذا العدد فى 2 ثم تقريبه لأقرب عشره يعنى يصبح العدد رقم آحاده صفر 

مثلا قيمة الحقل 32 لما نضربه فى 2 = 64 يبقى الرقم بعد التقريب = 60

عاوز اترجم الكلام ده فى الكود

وليكن الحقل المراد التقريب فيه a1  والحقل الآخر a2

 

[أبوبسمله]

صراحه لم اجد حلا غير هذا المثال

وقمت بالتعديل عليه ليناسبك ولعل احد اخواننا واساتذتنا يشاركونا بحلول اخرى

وهو كان حل مقدم لسؤال الاستاذ محمود فؤاد تركى عالرابط التالى

http://arabteam2000-forum.com/index.php?/topic/228816-كيف-يتم-التقريب-لاقرب-5/&do=findComment&comment=1136389

وان شاء الله تجد حلول اخرى بالنسب للتقريب لادنى 10

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

Round.rar

[Hamdi Edlbi-khalf]

سؤال عابر:

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

الجدول مقيد بالـ  built-in functions / الدوال الافتراضية في البرنامج 

الاستعلام يحتاج إلى إضافة حقول، مع القدرة على التوسع بدوال جديدة عن طريق VBA.

حاول ألا تستخدم الحقول المحسوبة في الجداول وحتى في كثير من الحالات مع استعلامات التحديد، وضمن العمليات في الفورم عن طريق Vba أو استعلامات إجرائية.

 

[Abu Farid]

السلام عليكم و رحمه الله و بركاته

اخي جرب العبارة       Fix((32*2/10))*10

غير 2 و 32 الى اسماء حقول

 

[خالد عبد الغفار]

الساتذة الأفاضل

         تحياتى لشخكم الكريم 

استاذنا احمد شاهدت المرفق جزاك الله خيرا وتمت التجربة لكن النتائج مش سليمه على سبيل المثال اضرب 84فى 2 الناتج 168 يتم التقريب الى 165بينما المفروض التقريب 170

استاذنا خلف هبعت المرفق السابق اللى كنا شغالين بيه فى اضافة ارقام الجلوس 

وفعلا هو فيه رقم محسوب هو اللى هينضرب فى 2 هبعته مع توضيح المطلوب هيسهل على كتير

استاذنا ابو فريد سوف اجرب هذه العبارة واوافيك بالنتيجة

خالد.rar

[أبوبسمله]

بالتوفيق ان شاء الله

[خالد عبد الغفار]

جزاكم الله كل خير استاذ احمد حبيبى

[ابو جودي]

الأستاذ @خالد عبد الغفار تحية عطرة

اتفضل جرب هذه الفكرة المتواضعة

Function MyRound(NUM As Double, Near As Integer) As Integer
    MyRound = IIf(NUM - (NUM \ Near) * Near >= 2.5, (NUM \ Near) * Near + Near, (NUM \ Near) * Near)
End Function

يتم استدعاء الكود كالاتى

MyRound([X],Z)

حيث  [X]  هو اسم الحقل للأرقام التي تريد معالجتها
اما  Z   هو الرقم الصحيح الذى تريد التقريب اليه

قد يكون 5 او 10 حسب رغبتك  لا تقول اوفيسنا ما دللتك 

[خالد عبد الغفار]

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

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

وقربت من المطلوب ودخولى الآن لارفق المداخلة فشاهدت ردكم ارجو مشاهدة المرفق انا طبقته على جزء من النموذج (المستجد) كتجربة و جاءت النتائج جيده ماعدا ما سوف تشاهده من تعليق داخل النموذج تقبل تحياتى

خالد.rar

[ابو جودي]

طيب جرب هذا المرفق وأخبرنى بالنتيجة

خالد.accdb

[خالد عبد الغفار]

الله ينور عليك يا باشمهندس 

ضبط معايا  بس غيرت 2.5 الى 5 
                                   الف الف شكر استاذنا ابا جودى ربنا يبارك فيك ويعطيك الصحه  وكل الشكر للأساتذة اللذين تفضلوا بالمساعدة 

 

 

[Hamdi Edlbi-khalf]

السلام عليكم

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

ويمكن تطبيقها في الاستعلام>

انظر الحقلين الأخيرين في الجدول Counters

 

ForKhaled.accdb

[خالد عبد الغفار]

استاذنا الفاضل خلف انا تعبتك معايا اليومين دول والله ربنا يبارك فى عمرك انت وال بيتك

الحقيقة النموذج بعد التطبيق نتايجه مش تمام يعنى لو جمعت 4 + 2 =6 نضربها فى 2 =12 اقرب لعشره وليس 20 عكس المرفق السابق بعد اضافة استاذنا الفاضل ابا جودى ضبط تمام انا جربته على المستجد وباحاول اجرطبق على النصف الثانى الى هو القرار وجزاك الله كل خير حبيبى ربنا يجازيكم اجمعين خير الجزاء اللهم امين

تحياتى لكم جميعا

[Hamdi Edlbi-khalf]

هل تريد أقرب أعلى عشرة أم أقرب العشرتين؟

لقد ضبطت المعادلة على الأساس السابق، فإذا كان المقصد العشرة الوسطى

فانتظر حتى أعدل المعادلة على هذا الأساس.

على أي حال بما أن الأستاذ أبا جودي قد سبقني  و بما أن انقطاع الكهرباء قد حان عندنا بعد انقطاع الإنترنت.

فلعلي أعدل المعادلة على نحو مرضٍ كونها الوسيلة الوحيدة و ليست المعادلة الوحيدة للعمل في جدول - حقل محسوب.

بالتوفيق و الشكر للأساتذة

تم تعديل فبراير 8, 2020 بواسطه Khalf

[Hamdi Edlbi-khalf]

السلام عليكم

أخي الحبيب إليك المعادلة

جربها  إن أردت تطبيق الحقل المحسوب في جدول.

شكراً لكم

المعادلة بصيغها النهائية

IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)>5;10+((2*[bg1])-Right([bg1]*2;1));IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)<=5;((2*[bg1])-Right([bg1]*2;1));[bg1]*2))
                                                              
                                                              

ForKhaled.accdb

[خالد عبد الغفار]

اعتذر منك استا1نا خلف لتواجدى خارج المنزل 

عند التقريب لأقرب 10 فى العدد الصحيح وبصفتى اساسا معلم رياضيات بنستبل رقم الأحاد ب صفر اذا كان رقم الاحاد اكبر من او يساوى 5 يتم زيادة الرقم التالى 1 اللى هو رقم العشرات اما اذا كان الآحاد اقل من 5 لا يتم زيادة الرقم التالى وانما ينزل كما هو 

مثلا العدد 31 يقرب الى 30 وكذلك 32 و33 و34 اما 35 تقرب الى 40 وهكذا ان شاء الله اجرب التعديل الأخير لحضرتك واوافيك بالنتيجه ويارب يضبط يبقى اسهل فى قاعدة الكتترول الاصليه

دمت بخير حبيبى اللى انا تاعبك معايا فرج الله همك ورزقك الفردوس الاعلى اللهم آمين

 

[خالد عبد الغفار]

عشره على عشره استاذ خلف 

ربى ما يحرمنى منك ومن كرم اخلاقك ربنا يزيدك من فضله وعطيك حتى ترضى

اللهم امين 

[Hamdi Edlbi-khalf]

كلمات رقيقة ودعوة هي عندي ما انتظر 

بالنسبة للمعادلة فهي تقرب الخمسة للأقل -وأعتذر على هذه الهنة- ما خلا ذلك فهو موافق لطلبك - إن شاء الله تعالى-.

مع ملاحظة صغيرة: أنه لا توجد طريقة واحدة للتقريب، فهناك التدوير للأعلى للأسفل التدوير لأقرب آحاد صفرية التدوير لآحاد غير صفرية وغيرها.

[خالد عبد الغفار]

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

زادكم الله علما ورزقنى وإياكم الفردوس الأعلى اللهم آمين

عفوا استاذنا خلف لو ممكن اضافة بسيطه مش عارف نسيتها ازاى 

بالنسبة للأعداد اللى مجموعها اقل من 5 بتقرب الى صفر وده بالنسبة لى خطأ وخطأ جسيم لأن عدد الطلبه دول لازم يكون ليهم ارقام جلوس مقترحة فلو ممكن أضيف الشرط ده فى المعادله اذا كان الناتج اقل من 5 يكون المقترح =10 ده بالنسبه للاعداد اللى مجموعهم بعد الضرب فى 2 بيكون اقل من 5 صحيح اذا سمح وقتك واسف جدا على التعب 

[خالد عبد الغفار]

ألف شكر استاذنا الفاضل عملت الإضافة التى تفضلت بها وضبطت تمام التمام 

بصراحه اصبح لسانى عاجز عن شكرك لأنى مهما قلت مش ها أوفيك حقك اعطاك الله الصحة والعافية وسدد خطاك وفرج همك وجزاك خير الجزاء 

تقبل تحياتى أخى الكريم

[Hamdi Edlbi-khalf]

بالتوفيق أخي الحبيب