' Fonction ICR By Boussaid Mustafa
' APC SALI 2023
Function Zone89(cateegori As String)
Dim point As Variant
Dim saler As Variant
point = 0.315
Select Case cateegori
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
Zone89 = saler * point
End Function