Delphi-Alg

Delphi-Alg ‎قريبا

السلام عليكم
تقبل الله صيامكم وقيامكم وابعد عنكم الجائحة
مع صدور جداول الضريبة على الدخل الجزائري قمنا بانشاء برنامج سهل الاستخدام عله يكون مفيدا للجميع
تم اصلاح الرابط
http://www.mediafire.com/file/fkssf9i1pxw7o0h/irg2020.exe/file
رابط اخر
https://drive.google.com/open?id=17cxBCLCvWpU36w9wOdCwAUh0j4m5VzSV

كما اقدم لكم الدالة المستخدمة
للاستفادة
function irgi(num:real):string;
var arond,irg,gg :real;
begin
arond:=0;
gg:=(num/10) ;
irg:=(int(gg))*10 ;

if irg30000) and (irg37500) and (irg43750) and (irg45000) and (irg