Prime Zone 1989

' Fonction La Zone 1989 By Boussaid Mustafa
' APC SALI 2023
Function Paie_Zone89(zone As String, oldCategory As String)
Dim point As Double
Dim saler As Double

Select Case zone
'Zone A
    Case "A1": point = 0.35
    Case "A2": point = 0.315
    Case "A3": point = 0.28
'Zone B
    Case "B1": point = 0.245
    Case "B2": point = 0.21
    Case "B3": point = 0.175
'Zone C
    Case "C1": point = 0.14
    Case "C2": point = 0.105
    Case "C3": point = 0.07
    Case Else: point = 0
End Select

Select Case oldCategory
    Case "01/1": saler = 1500
    Case "01/2": saler = 1520
    Case "01/3": saler = 1540
    Case "02/1": saler = 1560
    Case "02/2": saler = 1580
    Case "02/3": saler = 1600
    Case "03/1": saler = 1620
    Case "03/2": saler = 1640
    Case "03/3": saler = 1660
    Case "04/1": saler = 1680
    Case "04/2": saler = 1700
    Case "04/3": saler = 1745
    Case "05/1": saler = 1790
    Case "05/2": saler = 1850
    Case "05/3": saler = 1910
    Case "06/1": saler = 1970
    Case "06/2": saler = 2040
    Case "06/3": saler = 2100
    Case "07/1": saler = 2170
    Case "07/2": saler = 2240
    Case "07/3": saler = 2300
    Case "08/1": saler = 2380
    Case "08/2": saler = 2460
    Case "08/3": saler = 2530
    Case "09/1": saler = 2610
    Case "09/2": saler = 2700
    Case "09/3": saler = 2780
    Case "10/1": saler = 2850
    Case "10/2": saler = 2920
    Case "10/3": saler = 2990
    Case "10/4": saler = 3060
    Case "11/1": saler = 3070
    Case "11/2": saler = 3130
    Case "11/3": saler = 3190
    Case "11/4": saler = 3250
    Case "12/1": saler = 3320
    Case "12/2": saler = 3380
    Case "12/3": saler = 3450
    Case "12/4": saler = 3530
    Case "13/1": saler = 3540
    Case "13/2": saler = 3640
    Case "13/3": saler = 3730
    Case "13/4": saler = 3830
    Case "14/1": saler = 3920
    Case "14/2": saler = 4000
    Case "14/3": saler = 4080
    Case "14/4": saler = 4160
    Case "14/5": saler = 4240
    Case "15/1": saler = 4340
    Case "15/2": saler = 4430
    Case "15/3": saler = 4520
    Case "15/4": saler = 4620
    Case "15/5": saler = 4720
    Case "16/1": saler = 4820
    Case "16/2": saler = 4920
    Case "16/3": saler = 5020
    Case "16/4": saler = 5120
    Case "16/5": saler = 5220
    Case "17/1": saler = 5340
    Case "17/2": saler = 5450
    Case "17/3": saler = 5560
    Case "17/4": saler = 5690
    Case "17/5": saler = 5810
    Case "18/1": saler = 5930
    Case "18/2": saler = 6060
    Case "18/3": saler = 6190
    Case "18/4": saler = 6320
    Case "18/5": saler = 6450
    Case "19/1": saler = 6580
    Case "19/2": saler = 6720
    Case "19/3": saler = 6860
    Case "19/4": saler = 7000
    Case "19/5": saler = 7140
    Case "20/1": saler = 7300
    Case "20/2": saler = 7460
    Case "20/3": saler = 7620
    Case "20/4": saler = 7780
    Case "20/5": saler = 7940
    Case Else
               saler = 0
End Select
Paie_Zone89 = Round(saler * point, 2)
End Function