اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Hamdi Edlbi-khalf,

الردود الموصى بها

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

Round.rar

  • Like 2
رابط هذا التعليق
شارك

سؤال عابر:

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

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

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

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

استاذنا احمد شاهدت المرفق جزاك الله خيرا وتمت التجربة لكن النتائج مش سليمه على سبيل المثال اضرب 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 حسب رغبتك :wink2: لا تقول اوفيسنا ما دللتك :yes:

  • Like 3
رابط هذا التعليق
شارك

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

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

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

خالد.rar

رابط هذا التعليق
شارك

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

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

 

 

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه Khalf
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

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

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

شكراً لكم

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information