اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

شباب كيف أضع الكود لحساب نسبة العجز

نسبة العجز يحسب على الطريقتين التاليتين والموظف يأخذ أيهما أكبر من الطريقتين

نسبة العجز = الراتب × 0.50 

أو 

نسبة العجز = الراتب × 0.04 × مدة العمل 

بحيث لا تتجاوز نسبة العجز 80% من الراتب

 

مثال : الراتب 500 مدة العمل 22 سنة

نسبة العجز = 500 × 0.50 = 250

نسبة العجز = 500 × 0.04 × 22 = 440

500 × 0.80 = 400

الموظف يأخذ 400 

نسة العجز.rar

قام بنشر

أنشأ فورم وضع عليه 2 مربع نص وزر أمر - مربع النص t1 لادخال المرتب. ومربع النص t2 لادخال مدة العمل

ضع هذا الكود فى زر الأمر حدث عند النقر

Dim a,b,c

A= t1 * 0.58

B= t1 * 0.04 * t2

C = t1 * 0.80

If a > b and a <= c then msgbox "نسبة العجز= " & a

f b > a and b <= c then msgbox "نسبة العجز= " & b

If a > b and a > c then msgbox "نسبة العجز =" & c

If b > a and b> c then msgbox "نسبة العجز = " & c

جرب هذا لعله يفى بالغرض تمنياتى بالتوفيق

قام بنشر

أشكرك أخي الكريم

ما قصدته أن يحسب نسبة العجز على طريقتين

الأولى الراتب × 50%

والثانية الراتب × 4% × مدة العمل 

ويكون الناتج الأكبر من الطريقتين بحيث الناتج لا يتجاوز 80% من الراتب

قام بنشر

أخى هل طبقت ما سبق

الكود السابق ماهو الا حساب نسبة العجز بالطريقتين التى أشرت اليهما ومقارنة الناتج بالراتب * 0.80

ويظهر أيهما أكبر فى رسالة

سأحاول أن أرفق مثالا لحضرتك قريبا إن شاء الله

قام بنشر

عملتها بالطريقة المرفقة بس أريد أحد من الأعضاء يراجع معي إذا كان طريقة كتابة الكودات صحيحة أم لا أخاف تسبب لي مشاكل في المستقبل الناتج الآن يطلع صحيح

نسة العجز.rar

قام بنشر

شباب كيف أضع الكود لحساب نسبة العجز

نسبة العجز يحسب على الطريقتين التاليتين والموظف يأخذ أيهما أكبر من الطريقتين

نسبة العجز = الراتب × 0.50 

أو 

نسبة العجز = الراتب × 0.04 × مدة العمل 

بحيث لا تتجاوز نسبة العجز 80% من الراتب ولا يقل عن 203

قام بنشر

السلام عليكم 

 

جربت الكود ، وكله تمام (في الكود وما جربت الارقام)  :smile:

 

بس علشان الفقرة الاخيرة مال 203 ، أضفت السطر الاخير في الكود:


Private Sub Command6_Click()

    NA = Sallary * 0.04 * Years

    If NA > Sallary * 0.5 Then
        NA = Sallary * 0.04 * Years
    Else
        NA = Sallary * 0.5
    End If


    If NA > Sallary * 0.8 Then
        NA = Sallary * 0.8
    End If

    If NA < 203 Then NA = 203
    
End Sub

جعفر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information