تعديل على الضريبة على حسب الجدول (معدل)

[عبدالقدوس48]

السلام عليكمممكن تعديل على الضريبة على حسب الجدول في الصورة وشكر
 

Function IRG_New(moTr)

moTr = (Int(moTr / 10)) * 10

Select Case moTr
    Case 0 To 30000: IRG_New = 0
    Case 30010 To 34999: IRG_New = (moTr - 30000) * 0.8
    Case 35000 To 120000: IRG_New = 2500 + ((moTr - 30000) / 10) * 3
    Case Is > 120000: IRG_New = 29500 + ((moTr - 120000) / 10) * 3.5
End Select

End Function

 

تم تعديل يناير 3, 2022 بواسطه jjafferr
عمل تنسيق للكود بإستخدام زر القائمة <>

[Eng.Qassim]

ربما المحاسبين افضل مني في ذلك ..لكني تتبعت المتوالية لديك 

هذا ما طلع معي:

Select Case moTr
    Case 0 To 20000: IRG_New = 0
    Case 20010 To 40000: IRG_New = (moTr - 20000) * 0.23
    Case 40001 To 80000: IRG_New = 10000 + (moTr - 20000) * 0.27
    Case 80001 To 160000: IRG_New = 26200 + (moTr - 80000) * 0.3
    Case 160001 To 320000: IRG_New = 50200 + (moTr - 160000) * 0.33
    Case Is > 320000: IRG_New = 103000 + (moTr - 320000) * 0.35
End Select

 

[عبدالقدوس48]

شكرا أخي لكن ليس مطلوب

[Eng.Qassim]

ممكن شرح تفصيلي لمطلبك؟