طلب برنامج حسابي

[لزهر مدلل]

السلام عليكم

أريد برنامج في الإكسل لحساب الضريبة على الأجر

ستجدون الملفات المرفقة للشرح كيفية حساب الضريبة بما فيها جدول Bareme irg 2008 تجدون فيه المبلغ الخاضع للضريبة و المبلغ المقتطع مع برنامج يحسب الضريبة

Lazhar.rar

[طارق محمود]

السلام عليكم

تفضل أخي الملف المرفق

تضع الراتب الشهري في أول عمود فيتم حساب الضريبة بالتفصيل

أنا راجعته علي قيم كثيرة مما أرفقتها أنت

كانت النتائج ممتازة

يمكنك مراجعته أيضا

TAX.rar

[طارق محمود]

السلام عليكم

أخي العزيز

الحل أيضا بطريق الأكواد

إستحدثت لك دالة tax()

فقط تكتبها وبين القوسين الراتب الشهري

ينتج لك الضريبة

وقد راجعتها علي كامل القيم التي أرفقتها أنت

كانت هناك بعض النتائج الخاطئة في الرواتب بين الـ 20000 وال 30000 دج

لكن الأخطاء في أجزاء لاتتعدي 0.4 دينار

مرفق الملف به نفس البيانات التي أرفقتها أنت أولا حيث تظهر بعض الفروق التي حدثتك عنها

تفضل

TAX01.rar

[طارق محمود]

كود الدالة هو

Function tax(a As Long) As Long

'Get 1st slib b1

If a > 10000 Then b1 = 10000 Else b1 = a


'Get 2nd slib b2

If a > 30000 Then b2 = 20000: GoTo 50

If a > 10000 And a < 30000 Then b2 = a - 10000 Else b2 = 0


50 'Get 3rd & 4th slibs b3 & b4

If a > 120000 Then b3 = 90000: b4 = a - 120000: GoTo 100


If a > 30000 And a < 120000 Then b3 = a - 30000: b4 = 0



100 ' Tax ratio = b1:0%     b2:20%     b3:30%      b4:35%

global_tax = b1 * 0 + b2 * 0.2 + b3 * 0.3 + b4 * 0.35


'Tax Exceptions 40% (min1000 - max 1500)

ex_40 = global_tax * 0.4

If ex_40 < 1000 Then ex_40 = WorksheetFunction.Min(1000, global_tax)

If ex_40 > 1500 Then ex_40 = 1500


tax = global_tax - ex_40


End Function

[لزهر مدلل]

مشكورين إخوتي الكرام و دمتم في خدمة المنتدى و أعضائه

تم تعديل يناير 9, 2010 بواسطه medellel

[لزهر مدلل]

السلام عليكم

أريد التعديل في الملف المرفق

Officena.rar

تم تعديل يناير 10, 2010 بواسطه medellel

[طارق محمود]

السلام عليكم

غير المعادلة في الخلية E2

من:

=tax(C2)

إلي:

 =tax(ROUND(C2,-1))

[لزهر مدلل]

السلام عليكم

مشكور أخي tareQ M على مجهوداتك و جعلها الله زيادة لك في ميزان حسناتك إن شاء الله