النقطة الاستدلالية 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;