حساب المكافأة

[Alsalim1]

شباب كيف يكون حساب المكافأة على المعادلة أدناه

إذا كان موظف مدني

المكافأة = الراتب * 1

إذا كان موظف عسكري 

المكافأة = الراتب * 2

إذا كان متقاعد مدني 

المكافأة = الراتب * 0.75

إذا كان متقاعد عسكري

المكافأة = الراتب * 0.80

Database3.rar

[mohammed95]

هلا ود عمي الشباب ما راح يقصرون وياك

باذذن الله

[jjafferr]

حيا الله اولاد عمي الشباب 

 

هاي النتائج:

 

 

وهاي الكود:

Private Sub Civil_Status_AfterUpdate()
    
    Call calc_Benefits
End Sub

Private Sub Working_Retired_AfterUpdate()

    Call calc_Benefits
End Sub

Function calc_Benefits()


    's = الراتب
    'M = المكافأة
    '"موظف";"متقاعد"
    
    'check if salary is inserted
    If Len(Me.s & "") = 0 Then
        MsgBox "Please insert the Salary"
        Me.s.SetFocus
        Exit Function
    End If
    
    'do the calculations
    Select Case Me.Civil_Status
        Case 1  'مدني
                                
            If Me.Working_Retired = "موظف" Then
                Me.M = Me.s
            Else
                Me.M = Me.s * 0.75
            End If
            
        Case 2  'عسكري
        
            If Me.Working_Retired = "موظف" Then
                Me.M = Me.s * 2
            Else
                Me.M = Me.s * 0.8
            End If
            
    End Select
    
End Function

51.Database3.accdb.zip

[mohammed95]

ما نروم لك الخبير المعتمد خف علينا

يالله عسى الاخ وصل للمطلوب

[Alsalim1]

أشكرك استاذ جعفر كثير على ردودك

فيه إضافة بسيطة لو تكرمت

 

إذا كان موظف مدني وفترة الإستحقاق بالأشهر أكبر من 6 أشهر

المكافأة = الراتب * 1

إذا كان موظف مدني وفترة الإستحقاق بالأشهر أقل من 6 أشهر

المكافأة = الراتب * 0.50

 

إذا كان موظف عسكري وفترة الإستحقاق بالأشهر أكبر من 6 أشهر

المكافأة = الراتب * 2

إذا كان موظف عسكري وفترة الإستحقاق بالأشهر أقل من 6 أشهر

المكافأة = الراتب *1.5

 

إذا كان متقاعد مدني وفترة الإستحقاق أكبر من 6 أشهر 

المكافأة = الراتب * 0.75

إذا كان متقاعد مدني وفترة الإستحقاق أقل من 6 أشهر 

المكافأة = الراتب * 0.70

 

إذا كان متقاعد عسكري وفترة الإستحقاق بالأشهر أكبر من 6 أشهر

المكافأة = الراتب * 0.80

إذا كان متقاعد عسكري وفترة الإستحقاق بالأشهر أكبر من 6 أشهر

المكافأة = الراتب * 0.60

 

51.Database3.accdb (2).zip

[jjafferr]

تفضل 

 

واعتذر عن التأخير 

 

الكود الجديد:

Private Sub Civil_Status_AfterUpdate()
    
    Call calc_Benefits
End Sub

Private Sub Period_AfterUpdate()

    Call calc_Benefits
End Sub

Private Sub s_AfterUpdate()

    Call calc_Benefits
End Sub

Private Sub Working_Retired_AfterUpdate()

    Call calc_Benefits
End Sub

Function calc_Benefits()


    's = الراتب
    'M = المكافأة
    '"موظف";"متقاعد"
    
    'check if salary is inserted
    If Len(Me.s & "") = 0 Then
        MsgBox "Please insert the Salary"
        Me.s.SetFocus
        Exit Function
    End If
    
    'check if period is inserted
    If Len(Me.Period & "") = 0 Then
        MsgBox "Please insert the Period"
        Me.Period.SetFocus
        Exit Function
    End If
    
    Me.M = 0
    
    'do the calculations
    Select Case Me.Civil_Status
        Case 1  'مدني
                                
            If Me.Working_Retired = "موظف" Then
                
                If Me.Period >= 6 Then
                    Me.M = Me.s * 1
                Else
                    Me.M = Me.s * 0.5
                End If
                
            ElseIf Me.Working_Retired = "متقاعد" Then
                
                If Me.Period >= 6 Then
                    Me.M = Me.s * 0.75
                Else
                    Me.M = Me.s * 0.7
                End If
                
            End If
            
        Case 2  'عسكري
        
            If Me.Working_Retired = "موظف" Then
                
                If Me.Period >= 6 Then
                    Me.M = Me.s * 2
                Else
                    Me.M = Me.s * 1.5
                End If
                
            ElseIf Me.Working_Retired = "متقاعد" Then
                
                If Me.Period >= 6 Then
                    Me.M = Me.s * 0.8
                Else
                    Me.M = Me.s * 0.6
                End If
                
            End If
            
    End Select
    
End Function

جعفر

51.1.Database3.accdb.zip

[Alsalim1]

أشكرك كثير استاذ