حساب الاجر القاعدي في الوظيف - نسخة قابلة للطباعة

PHP كود :

const
  gri_new : array[1..10, 1..15] of Word =
  (
    ( 0,  0, 0,  1,  2,  3,  4,  5,  6,  7 ,  8,  9,  10 ,  11 ,  12),
    ( 7, 348, 0, 17, 35,  52,  70,  87, 104, 122, 139, 157, 174 , 191 , 209 ),
    (10, 453, 0, 23, 45,  68,  91, 113, 136, 159, 181, 204, 227 , 249 , 272 ),
    (11, 498, 0, 25, 50,  75, 100, 125, 149, 174, 199, 224, 249 , 274 , 299 ),
    (12, 537, 0, 27, 54,  81, 109, 134, 161, 188, 215, 242, 269 , 295 , 322 ),
    (13, 578, 0, 29, 58,  87, 116, 145, 173, 202, 231, 260, 289 , 318 , 347 ),
    (14, 621, 0, 31, 62,  93, 124, 155, 186, 217, 248, 279, 311 , 342 , 373 ),
    (15, 666, 0, 33, 67, 100, 133, 167, 200, 233, 266, 300, 333 , 366 , 400 ),
    (16, 713, 0, 36, 71, 107, 143, 178, 214, 220, 285, 321, 357 , 392 , 428 ),
    (17, 762, 0, 38, 76, 114, 152, 191, 229, 267, 305 ,343, 381 , 419 , 457 )
  );

PHP كود :

var i,_ech,_catg:Word;
_base, _iep,:Single;
begin

_ech:=StrToInt(edt1.Text);
_catg:=StrToInt(edt2.Text);


for I := 1 to 10 do
  if _catg=gri_new[i,1] then
  begin
  _base:=(gri_new[i,2]*45);
  _iep:=(gri_new[i,_ech+3]*45);
  Break;
  end;

PHP كود :

function Salaire_base(const _ech,_catg:string ): integer;

var i:Word;
_base, _iep:integer;

const
  gri_new : array[1..10, 1..15] of Word =
  (
    ( 0,  0, 0,  1,  2,  3,  4,  5,  6,  7 ,  8,  9,  10 ,  11 ,  12),
    ( 7, 348, 0, 17, 35,  52,  70,  87, 104, 122, 139, 157, 174 , 191 , 209 ),
    (10, 453, 0, 23, 45,  68,  91, 113, 136, 159, 181, 204, 227 , 249 , 272 ),
    (11, 498, 0, 25, 50,  75, 100, 125, 149, 174, 199, 224, 249 , 274 , 299 ),
    (12, 537, 0, 27, 54,  81, 109, 134, 161, 188, 215, 242, 269 , 295 , 322 ),
    (13, 578, 0, 29, 58,  87, 116, 145, 173, 202, 231, 260, 289 , 318 , 347 ),
    (14, 621, 0, 31, 62,  93, 124, 155, 186, 217, 248, 279, 311 , 342 , 373 ),
    (15, 666, 0, 33, 67, 100, 133, 167, 200, 233, 266, 300, 333 , 366 , 400 ),
    (16, 713, 0, 36, 71, 107, 143, 178, 214, 220, 285, 321, 357 , 392 , 428 ),
    (17, 762, 0, 38, 76, 114, 152, 191, 229, 267, 305 ,343, 381 , 419 , 457 )
  );

begin


for I := 1 to 10 do begin

  if _catg=IntToStr(gri_new[i,1]) then
  begin
  _base:=(gri_new[i,2]*45);

  _iep:=(gri_new[i, StrToInt(_ech)   +3]*45);

Result :=  _base + _iep;

  Break;
  end;

end;

end;