(08-06-2020, 09:14 AM)ghostdz كتب : السلام عليكم
رياضيا الدالة التي وضعتها لا يمكن أن تساوي الدالة الأصلية لحساب IRG
وعليكم السلام
ولكن تحسب الضريبة على الدخل الجديد بين 30010 و35000 أي تفي بالغرض وإذا أردت حساب الضريبة الخاصة بالمعوقين والمتعاقدين نفس الدالة غير فقط 0.8 بـ 0.5
في النتيجة تساوي الدالة الأصلية
لحساب الضريبة أقل أو تساوي أو أكثر
كود :
function IRG (soumis:Real) :string;
begin
if soumis <=30000 then
result:='0' else
if (soumis > 30000) and (soumis <= 35000) then
result:=FloatToStr((soumis-30000)*0.8)
else
// وضع كود حساب الضريبة 2008
end;