السلام عليكم
هذه دالة مختصرة أستخدمها دائماً في اكسال و وينداف تقوم بحساب الرقم الاستدلالي و جدول الأجر كاملا
قمت بتحويلها لدلفي و هي تعمل جيداً
الاستخدام:
هذه دالة مختصرة أستخدمها دائماً في اكسال و وينداف تقوم بحساب الرقم الاستدلالي و جدول الأجر كاملا
قمت بتحويلها لدلفي و هي تعمل جيداً
كود :
Function Indic(Categori:Integer): integer;
var
vals:Integer;
begin
If (Categori >= 11) And (Categori <= 17) then vals := 18
Else If (Categori >= 9) And (Categori <= 10) Then vals := 10
Else If (Categori >= 7) And (Categori <= 8) Then vals := 4
Else
vals := 0;
Result := vals + (Categori - 1) * 19 + 250 + (Categori - 2) * (Categori - 1);
End;
الاستخدام:
كود :
procedure TTMSForm1.Button1Click(Sender: TObject);
var
v1: integer;
begin
v1 := strtoint(Edit1.Text);
Edit2.Text:= IntToStr(Indic(v1));
end;