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

[AbuuAhmed]

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

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

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

[husamwahab]

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

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

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

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

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

 

4ExcelFunctions4Access_2.rarFetching info...

[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.xlsmFetching info... 4ExcelFunctions4Access_03.xlsmFetching info...

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

[husamwahab]

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

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

  في 11‏/11‏/2022 at 18:12, AbuuAhmed said:

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

Expand  

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

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