( تمت الفائدة ) - الدالة Cint لا تجبر القيمة 0.5

[نرجس الورد]

السلام عليكم

توجد مشكلة في الدالة Cint لجبر الكسور

فعندما تكون قيمة الكسر تساوي (50) فإن الدالة لا تجبره للرقم الأعلى

والمطلوب أن يتم جبر قيمة الكسر (50) للرقم الأعلى

ولكم الشكر مقدماً

_________50.rar

[يوسف أحمد]

الاخت / نرجس الورد

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

يوجد حلً للمهندس اسامة المقدم جزاه الله خيراً بهذا الخصوص. تم استخدامه

وبالتوفيق

_________50.rar

[Dream_Works]

الله يعطيك العافية أخوي يوسف

تم تعديل أغسطس 15, 2007 بواسطه Dream_Works

[نرجس الورد]

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

وشكرا لمرورك أخي الكريم دريم

[نرجس الورد]

السلام عليكم

أخواني الكرام

لقد لاحظت مشكلة خطييييييييررررررة في دوال الجبر

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

مشكلة الدالة Cint أنها تقوم بجبر الكسور للأعلى عندما يكون الرقم العشري يساوي أو يتعدى العدد ( 0.50 ) وذلك للأرقام الصحيحة الفردية فقط دون الزوجية !!!! فإذا كان الرقم الصحيح زوجي فإنها لا تجبر الكسر ( 0.50 ) بل تضع الرقم الصحيح الزوجي نفسه !!

بينما الدالة Int صحيح تقوم بجبر الكسر ( 0.50 ) وسواء كانت الأرقام الصحيحة فردية أو زوجية لا تفرق

لكنها في نفس الوقت تجبر جميع الكسور حتى تلك التي أقل من ( 0.50 ) !!

وتقريباً أغلب من يبحث عن دوال جبرية لا يريدها ان تجبر الأقل من ( 0.50 )

فهل بالإمكان تجاوز مشاكل هذه الدوال ؟

ملاحظة لمشرفي أوفيسنا :

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

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

Cint___Fix___Int.rar

تم تعديل ديسمبر 7, 2007 بواسطه نرجس الورد

[نرجس الورد]

السلام عليكم

بعد عناء ليس بقصير توصلت للحل بفضل الأخت زهرة

حيث وجدت لها مثال في الفريق العربي ولتعذرنا بنقل وتغيير بسيط في مثالها الرائع موصول لها الشكر الجزيل

المثال الأول هو الأصل بدون تعديل

والمثال الثاني نفسه ولكن قمت بتغيير العدد (0.5) في الوحدة النمطية إلى العدد (0.49) واستطعت الحصول على ما أريده

جزاكم الله جميعاً ألف خير وحقق لكم أحلامكم

Round_UP_Down.rar

Round_UP_Down2.rar

تم تعديل ديسمبر 7, 2007 بواسطه نرجس الورد

[نرجس الورد]

بقيت مشكلة لم أعرف كيف يتم حفظ ناتج التقريب في الجدول

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

شكرااااااااا للجميع

تم تعديل ديسمبر 7, 2007 بواسطه نرجس الورد

[منذر عساج]

اختي الكريمة

انشأي حقل جديد في الجدول (natg_tqrep)

غيري اسم حقل (تقريب) في النموذج الى natg

في حدث بعد التحديث للحقل eno ضعي الكود

natg_tqrep = natg

Cint___Fix___Int.rar

[Accessna]

دالة لـ أبو هادي :
دالة RoundUp, بديلة لدالة Round

كود

Function RoundUp(ByVal Expression, _
       Optional ByVal NumDecimalPlaces = 0) As Double
Dim Rnd

On Error Resume Next

If NumDecimalPlaces < 0 Then NumDecimalPlaces = 0
If NumDecimalPlaces > 22 Then NumDecimalPlaces = 22

Rnd = 0
If Expression <> 0 Then
   Rnd = Val("0." & String(NumDecimalPlaces + 1, "0") & "1")
End If

RoundUp = Round(Expression + IIf(Expression > 0, Rnd, -Rnd), _
                 NumDecimalPlaces)
End Function
وهذا اختبار للدالة ومقارنتها مع ثلاث دوال أخرى :
كود
Sub RoundingTest()
  Dim Num As Double
  
  Num = 0.5
  
  MsgBox CInt(Num) & vbNewLine & _
         CLng(Num) & vbNewLine & _
         Round(Num) & vbNewLine & _
         RoundUp(Num)
End Sub

[abohasan911]

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

أتقدم بالشكر الجزيل والحب الكبير لهذا المنتدى الرائع بل الأكثر من رائع أسأل الله العلي القدير لكم التوفيق

وأن يجعلكم من أهل جنات النعيم والفردوس الاعلى يا رب العالمين

[amna11]

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

[أبا عمر]

ينقل 


........