النقطة الاستدلالية 2022 الوظيف العمومي الجزائري

[bousaid]

السلام عليكم
هذه دالة مختصرة أستخدمها دائماً في اكسال و وينداف تقوم بحساب الرقم الاستدلالي و جدول الأجر كاملا
قمت بتحويلها لدلفي و هي تعمل جيداً

كود :

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;