أحبتي الكرام
السلام عليكم ورحمة الله وبركاته
اريد تقريب العدد بعد الفاصلة إلى النصف إذا كان أقل من النص وإلى العدد الصحيح إذا كان أكبر من النصف
بمعنى 22.125 = 22.5
و 22.677 = 23
لأن العدد العشري الأول أقل من النصف
والعدد العشري الثاني أكثر من النصف
كيف أقرب العدد العشري إلى النصف أو العدد الصحيح
مغلق
هل تقصد تغيير العرض في النموذج ؟
اذا كان المراد في النموذج ...يمكن ذلك
1-بواسطة خصائص مربع النص
2-تنسيق
3-المنازل العشرية = (0)
هذه المعلومة المتوفرة لدي حاليا......
لا يا اخي الكريم أقصد في الاستعلام بعد إجراء عملية حساية كالتالي :
[a]= [add]*10/5
الأخ الفاضل ...
يمكنك أستخدام دالة تقوم بحساب ذلك:
Public Function SpcialRound(n As Double) As Double Dim d As Double d = Val(n) If d < CInt(d) Then d = CInt(d) ElseIf (d - CInt(d)) > 0 Then d = CInt(d) + 0.5 End If SpcialRound = d End Function
وشكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
الاخ Eng. Usama El-Mokadem
كم انت رائع لا اقول الا جزاك الله كل خير
أعجبتني هذه الــ Function تشكر ياهندسة
تم تعديل هذه المشاركة بواسطة ekseer في 5 فبراير 2007 في 02:36
Nothing is impossible, the word impossible itself says that: I M - Possible
السلام عليكم ورحمة الله
اخى الكريم ابوغدي
كما تفضل اخونا Eng. Usama El-Mokadem , يمكنك عمل التقريب المطلوب بالطريقة السابقة.
كما يمكنك استخدام الطريقة التالية لنفس الوظيفه وهى عبارة كود صغير يوضع فى المربع المراد وضع الرقم به بعد التقريب.
فمثلا لو كان حقل الرقم الاصلى باسم Exact ويراد تقريبه بالطريقة المطلوبة داخل مربع النص New , فانه بكل بساطه ستكتب الكود التالى داخل مربع النص New
=-Int(-[exact]*2)/2
ومرفق مثال
والله الموفق ,,,
تم تعديل هذه المشاركة بواسطة عماد حمدي احمد في 5 فبراير 2007 في 04:55
أخي عماد حمدي بارك الله فيك
رائع رائع ... تعددت الحلول والهدف واحد
والله أبارك لمنتدانا بكما ( الرياضيات والهندسة ) عند إجتماعهما لابد أن تنتجا دررا
فلله دركما
جزاك الله كل خير أخي أبو عبدالرحمن وأجزل مثوبتك
تم تعديل هذه المشاركة بواسطة ekseer في 5 فبراير 2007 في 10:49
أحبتي الكرام
ألف ألف شكر على تعاونكم ومساعدتكم لنا
وفقكم الله ونفع بكم وبعلمكم
السلام عليكم ورحمة الله
أخى الكريم ekseer
شكرا جزيلا لك على مجاملاتك الرقيقه , وربنا يتقبل منا ومنكم صالح الأعمال.
الأخ الكريم ابوغدي
نحن هنا فى هذا المنتدى الراقى اعتدنا ان نكون اخوة , يساعد كل منا الأخر . فلا شكر على واجب اخى الحبيب.
هذا وبالله التوفيق ,,,
هذا الموضوع مغلق.