أربع دوال شبيهة بدوال الاكسل ROUNDDOWN, ROUNDUP, FLOOR, CEILING

[AbuuAhmed]

آمل تجربتهم بشكل مكثف والرجوع لنا بنتائج التجارب.
خوفي أن هذه الدوال موجودة في الأكسس وأنا لا أعلم بها ويذهب تعبي سدى.

تم تبديل المرفق في مشاركة لاحقة بعد تصحيح اخفاق في دالة Ceiling اكتشفه الاستاذ @husamwahab فشكرا له.

تم تعديل نوفمبر 11, 2022 بواسطه AbuuAhmed
حذف المرفق

[husamwahab]

السلام عليكم استاذ ابو احمد

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

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

هذه محاولة ارجو ان تكون موفقة 

وعذرا للاطالة

 

4ExcelFunctions4Access_2.rar

[husamwahab]

اعتذر للخطا تعديل للكود

Function vbCEILING2(ByVal Number As Variant, Significance As Double) As Double
    If Sgn(Number) <> Sgn(Significance) Or Sgn(Significance) = 0 Or Not IsNumeric(Number) Then
        Exit Function
    End If
    
    If (Val(Number) / Significance) > Fix(Val(Number) / Significance) Then
      vbCEILING2 = (Fix(Val(Number) / Significance) + 1) * Significance
    Else
      vbCEILING2 = Fix(Val(Number) / Significance) * Significance
    End If
End Function

 

[AbuuAhmed]

شكرا لكم استاذ @husamwahab وشكرا لجهودكم، ياريت الجميع يفعل كما فعلت، فعلا الفحص يحتاج دائما إلى التنويع في البيانات. خيرا فعلت.
تم التصحيح.

تم تبديل المرفقات أكثر من مرة، العملية متعبة وخصوصا لما تقارن مع مخرجات الاكسل، وكما قلت سابقا في موضوع آخر أن الاكسل يستخدم نوع رقمي أوسع من النوع double الموجود في الفيجوال، وهذا يسبب فقدان جزء ضيل جدا من قيمة الكسر وهذا ما يسبب الفروقات.

لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا.

 

 

CeilingFunction4Access_03.xlsm 4ExcelFunctions4Access_03.xlsm

تم تعديل نوفمبر 11, 2022 بواسطه AbuuAhmed
تبديل المرفقات لاكتشاف اخفاق جديد

[husamwahab]

احسنت استاذ ابو احمد

بذلت مجهود كبير تشكر عليه

16 hours ago, AbuuAhmed said:

لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا

لا يمكن اهمال نتائج الاكسل لان صحة الكود متوقفة على مقارنة نتائج الكود والدالة الاصلية في الاكسل

نعم المقارنة تكون بتطبيق الكود بالاكسيس وليس الاكسل ومقارنة النتائج مع الدالة الاصلية في الاكسل