delphi4arab منتديات دلفي للعرب

نسخة كاملة : حساب الضريبة على الدخل IRG
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
دالة تقوم بحساب ضريبة الدخل مايعرف بال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; 
ان شاء الله وهذا يعود على المبرمجين بالخير يعني اعادة كل البرامج الخاصة بالاجرة
السلام علكيكم بوركت
غير اني سمعت ان ضريبة الدخل ستلغى . لا ادري هل جملة ام فيها تفصيل
(04-05-2020, 08:24 PM)mobile كتب : [ -> ]السلام علكيكم بوركت
غير اني سمعت ان ضريبة الدخل ستلغى . لا ادري هل جملة ام فيها تفصيل
لن تلغى بل سيتم اعادة ترتيب سلم IRG 2008 وبدل 15000 دج سبدا من 30000 دج

(04-05-2020, 06:40 PM)bouh25 كتب : [ -> ]ان شاء الله وهذا يعود على المبرمجين بالخير يعني اعادة كل البرامج الخاصة بالاجرة
Big Grin  هذا المجال مستفيد منه شركتين فقط جيني سوفت و بيسي باي
بارك الله فيك
كيف يتم إستدعاء الاجراء (Function) في الفاست ريبورت
السلام عليكم ورحمة الله تعالى وبركاته
اذا كان المكون editBase.text يساوي المبلغ الخاضع للضريبة
كيف يتم وضعة الإقتطاع في المكون EditIrg.text
كيف يمكن مناداتها في edit2.text