delphi4arab منتديات دلفي للعرب
حساب الضريبة على الدخل IRG - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : حساب الضريبة على الدخل IRG (/showthread.php?tid=10815)



حساب الضريبة على الدخل IRG - onexite - 04-05-2020

دالة تقوم بحساب ضريبة الدخل مايعرف بالIRG
بعد قرار تبون امس ربما سيكون هناك تغيير عليها

PHP كود :
Function IRG(M:single):Single;
var
montant :Integer;
begin
montant 
:=Trunc(m);
montant :=montant -(montant  mod 10);
If 
M>30000 then Result:=2500+(montant -30000)*0.3
else if (M>28750) then Result:=2250+(montant -28750)*0.2
else if (M>22500)and(M<=28750) then Result:=1500+(montant -22500)*0.12
else if (M>15000)and(M<=22500)then Result:=(montant -15000)*0.2
else Result:=0;
end; 



RE: حساب الضريبة على الدخل IRG - bouh25 - 04-05-2020

ان شاء الله وهذا يعود على المبرمجين بالخير يعني اعادة كل البرامج الخاصة بالاجرة


RE: حساب الضريبة على الدخل IRG - mobile - 04-05-2020

السلام علكيكم بوركت
غير اني سمعت ان ضريبة الدخل ستلغى . لا ادري هل جملة ام فيها تفصيل


RE: حساب الضريبة على الدخل IRG - onexite - 04-05-2020

(04-05-2020, 08:24 PM)mobile كتب : السلام علكيكم بوركت
غير اني سمعت ان ضريبة الدخل ستلغى . لا ادري هل جملة ام فيها تفصيل
لن تلغى بل سيتم اعادة ترتيب سلم IRG 2008 وبدل 15000 دج سبدا من 30000 دج

(04-05-2020, 06:40 PM)bouh25 كتب : ان شاء الله وهذا يعود على المبرمجين بالخير يعني اعادة كل البرامج الخاصة بالاجرة
Big Grin  هذا المجال مستفيد منه شركتين فقط جيني سوفت و بيسي باي


RE: حساب الضريبة على الدخل IRG - ALG2009 - 06-05-2020

بارك الله فيك
كيف يتم إستدعاء الاجراء (Function) في الفاست ريبورت


RE: حساب الضريبة على الدخل IRG - medreg - 12-05-2020

السلام عليكم ورحمة الله تعالى وبركاته
اذا كان المكون editBase.text يساوي المبلغ الخاضع للضريبة
كيف يتم وضعة الإقتطاع في المكون EditIrg.text


RE: حساب الضريبة على الدخل IRG - Gherrouz - 26-11-2021

كيف يمكن مناداتها في edit2.text