Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Fonction Saler + IEP By Boussaid Mustafa
- ' APC SALI 2022
- Function Indic(Categori As Integer)
- Dim val As Integer
- If Categori >= 11 And Categori <= 17 Then
- val = 18
- ElseIf Categori >= 9 And Categori <= 10 Then
- val = 10
- ElseIf Categori >= 7 And Categori <= 8 Then
- val = 4
- Else
- val = 0
- End If
- Indic = val + (Categori - 1) * 19 + 250 + (Categori - 2) * (Categori - 1)
- End Function
- Function IepIndic(Categori As Integer, Echlon As Integer)
- IepIndic = WorksheetFunction.RoundUp(Indic(Categori) * 0.05 * Echlon, 0)
- If Categori = 8 And Echlon = 12 Then
- IepIndic = IepIndic - 3
- End If
- End Function
- Function saler(Categori As Integer) As Currency
- saler = Indic(Categori) * 45
- End Function
- Function iep(Categori As Integer, Echlon As Integer) As Currency
- iep = IepIndic(Categori, Echlon) * 45
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement