مكتبة الموقع - حساب ضريبة الدخل علي الاكسيل طبقا لتعديلات قانون الضرائب رقم7 لسنه 2024

[عصام مسعد]

اعرض الملف

حساب ضريبة الدخل علي الاكسيل طبقا لتعديلات قانون الضرائب رقم7 لسنه 2024

---

Income Tax No.7 of 2024.xlsx

---

• صاحب الملف
  عصام مسعد
• تمت الاضافه
  25 فبر, 2024
• الاقسام
  قسم الإكسيل

 

[Ali Mohamed Ali]

بارك الله فيك وزادك الله من فضله

[عصام مسعد]

2 ساعات مضت, Ali Mohamed Ali said:

بارك الله فيك وزادك الله من فضله

 ربنا يحفظك ويبارك فيك 

[حسونة حسين]

بارك الله فيك وجعله الله في ميزان حسناتك 

[𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ]

جزاك اللله كل خير اخي

[أبومروان]

جزاك الله خير وبارك فيك @عصام مسعد

ممكن تشرح القانون كيف يتم خصم الضريبه علي الدخل

[عصام مسعد]

في 27‏/2‏/2024 at 01:34, حسونة حسين said:

بارك الله فيك وجعله الله في ميزان حسناتك 

ويبارك فيك اخي الكريم 

في 27‏/2‏/2024 at 08:03, spyhearts said:

جزاك اللله كل خير اخي

جزانا واياكم اخي الكريم

في 27‏/2‏/2024 at 15:58, أبومروان said:

جزاك الله خير وبارك فيك @عصام مسعد

ممكن تشرح القانون كيف يتم خصم الضريبه علي الدخل

جزانا واياكم 

نزل القانون pdf وشوف المعادلات اللي في ملف الاكسل وان شاء الله هتعرف بتتخصم اذاي.

[مساهدية نجيب]

vbn 

Function IRG2022_New(moTr)

Dim abat As Double

moTr = (Int(moTr / 10)) * 10
If moTr <= 30000 Then
    IRG2022_New = 0
Else
    Select Case moTr
        Case 20000 To 40000: IRG2022_New = (moTr - 20000) * 0.23
        Case 40001 To 80000: IRG2022_New = 4600 + (moTr - 40000) * 0.27
        Case 80001 To 160000: IRG2022_New = 15400 + (moTr - 80000) * 0.3
        Case 160001 To 320000: IRG2022_New = 39400 + (moTr - 160000) * 0.33
        Case Is > 320000: IRG2022_New = 92200 + (moTr - 320000) * 0.35
    End Select

    abat = IRG2022_New * 0.4
    If abat < 1000 Then abat = 1000
    If abat > 1500 Then abat = 1500
    IRG2022_New = Round(IRG2022_New - abat, 1)

    '1= Normal 2= Handicape
'        If m = 0 Then
            If moTr <= 35000 Then
                IRG2022_New = Round(IRG2022_New * (137 / 51) - (27925 / 8), 1)
'        End If
        
        
'        If m = 1 Then
            ElseIf moTr < 35001 Then
                IRG2022_New = Round(IRG2022_New * (93 / 61) - (81213 / 41), 1)
'            End If
        End If
End If
End Function