برنامج بسيط من صنعي ضريبة الجديدة

السلام عليكم أقدم بين أيدكم برنامج بسيط من معمول بأكسيس 2010 لحساب الضريبة إليكم الرابط وشكرا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

بارك الله فيكم اخي هل بامكانك اعطاءنا الكود سورس بالدلفي

' IRG 2020 Function By Boussaid Mustafa
' APC SALI 2020
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

هذا الكود لي الأخ بوسعيد مصطفى