ارجو مساعدتي في عملية الجمع ضمن شروط ...

[ahmadhurira]

الى اساتذتي الكرام لكم الشكر الجزيل بداية

ارجو مساعدتي في عملية الجمع ضمن شروط  وهي :

1 - اذا كان المبلغ اصغر من 750 تكون الضريبة 0

2 - اذا كان المبلغ يساوي او اكبر من 750 تكون الضريبة ناتج ( المبلغ - 750 ) * 0.05

3- اذا كان المبلغ يساوي 1166.667 فأن الضريبة تكون 28.883

4- اذا كان المبلغ اكبر من او يساوي 1166.667 تكون الضريبة ناتج ( المبلغ - 1166.667) * 0.1

ارجو مساعدتي ولكم جزيل الشكر 

 

 

Database4.accdb

تم تعديل منذ 14 ساعات بواسطه ahmadhurira
نسيت المبلغ

[kkhalifa1960]

تفضل استاذ @ahmadhurira المرفق بعد التعديل بطلبك حسب ما فهمت . ووافني بالرد .

Database4-1.rar

[Foksh]

ومشاركة مع أخي @kkhalifa1960 ، هذه فكرتي ، بحيث من خلال دالة عامة يمكن استخدامها في أي مكان في المشروع وليس ضمن حقل معين أو نموج معين ..

انشئ مديول جديد أو في مديول موجود ، وألصق الكود التالي :-

Public Function CalculateTax(ByVal salary As Double) As Double
    Const BASE1 As Double = 750
    Const BASE2 As Double = 1166.667
    Const FIXED_TAX_AT_BASE2 As Double = 28.883
    Select Case True
        Case salary < BASE1
            CalculateTax = 0
        Case Round(salary, 3) = BASE2
            CalculateTax = FIXED_TAX_AT_BASE2
        Case salary < BASE2
            CalculateTax = (salary - BASE1) * 0.05
        Case Else
            CalculateTax = FIXED_TAX_AT_BASE2 + (salary - BASE2) * 0.1
    End Select
End Function

ثم في حدث بعد التحديث لمربع نص "الراتب" :-

    Me.الضريبة = CalculateTax(Me.الراتب)

 

وكنصيحة مستقبلية من أخ لأخيه المسلم  :-

ابتعد عن التسميات العربية للحقول والعناصر ومكونات قاعدة البيانات ، فحتماً ستسبب لك العديد من المشاكل في المشروع والتنفيذ .