Advertisement
bousaid

Prime Zone - VBA

Apr 20th, 2022
968
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' Fonction ICR By Boussaid Mustafa
  2. ' APC SALI 2015
  3. Function icr(cateegori As String)
  4. Dim point As Double
  5. point = 0.35
  6. Select Case cateegori
  7.     Case "01/1": icr = 1500 * point
  8.     Case "01/2": icr = 1520 * point
  9.     Case "01/3": icr = 1540 * point
  10.     Case "02/1": icr = 1560 * point
  11.     Case "02/2": icr = 1580 * point
  12.     Case "02/3": icr = 1600 * point
  13.     Case "03/1": icr = 1620 * point
  14.     Case "03/2": icr = 1640 * point
  15.     Case "03/3": icr = 1660 * point
  16.     Case "04/1": icr = 1680 * point
  17.     Case "04/2": icr = 1700 * point
  18.     Case "04/3": icr = 1745 * point
  19.     Case "05/1": icr = 1790 * point
  20.     Case "05/2": icr = 1850 * point
  21.     Case "05/3": icr = 1910 * point
  22.     Case "06/1": icr = 1970 * point
  23.     Case "06/2": icr = 2040 * point
  24.     Case "06/3": icr = 2100 * point
  25.     Case "07/1": icr = 2170 * point
  26.     Case "07/2": icr = 2240 * point
  27.     Case "07/3": icr = 2300 * point
  28.     Case "08/1": icr = 2380 * point
  29.     Case "08/2": icr = 2460 * point
  30.     Case "08/3": icr = 2530 * point
  31.     Case "09/1": icr = 2610 * point
  32.     Case "09/2": icr = 2700 * point
  33.     Case "09/3": icr = 2780 * point
  34.     Case "10/1": icr = 2850 * point
  35.     Case "10/2": icr = 2920 * point
  36.     Case "10/3": icr = 2990 * point
  37.     Case "10/4": icr = 3060 * point
  38.     Case "11/1": icr = 3070 * point
  39.     Case "11/2": icr = 3130 * point
  40.     Case "11/3": icr = 3190 * point
  41.     Case "11/4": icr = 3250 * point
  42.     Case "12/1": icr = 3320 * point
  43.     Case "12/2": icr = 3380 * point
  44.     Case "12/3": icr = 3450 * point
  45.     Case "12/4": icr = 3530 * point
  46.     Case "13/1": icr = 3540 * point
  47.     Case "13/2": icr = 3640 * point
  48.     Case "13/3": icr = 3730 * point
  49.     Case "13/4": icr = 3830 * point
  50.     Case "14/1": icr = 3920 * point
  51.     Case "14/2": icr = 4000 * point
  52.     Case "14/3": icr = 4080 * point
  53.     Case "14/4": icr = 4160 * point
  54.     Case "14/5": icr = 4240 * point
  55.     Case "15/1": icr = 4340 * point
  56.     Case "15/2": icr = 4430 * point
  57.     Case "15/3": icr = 4520 * point
  58.     Case "15/4": icr = 4620 * point
  59.     Case "15/5": icr = 4720 * point
  60.     Case "16/1": icr = 4820 * point
  61.     Case "16/2": icr = 4920 * point
  62.     Case "16/3": icr = 5020 * point
  63.     Case "16/4": icr = 5120 * point
  64.     Case "16/5": icr = 5220 * point
  65.     Case "17/1": icr = 5340 * point
  66.     Case "17/2": icr = 5450 * point
  67.     Case "17/3": icr = 5560 * point
  68.     Case "17/4": icr = 5690 * point
  69.     Case "17/5": icr = 5810 * point
  70.     Case "18/1": icr = 5930 * point
  71.     Case "18/2": icr = 6060 * point
  72.     Case "18/3": icr = 6190 * point
  73.     Case "18/4": icr = 6320 * point
  74.     Case "18/5": icr = 6450 * point
  75.     Case "19/1": icr = 6580 * point
  76.     Case "19/2": icr = 6720 * point
  77.     Case "19/3": icr = 6860 * point
  78.     Case "19/4": icr = 7000 * point
  79.     Case "19/5": icr = 7140 * point
  80.     Case "20/1": icr = 7300 * point
  81.     Case "20/2": icr = 7460 * point
  82.     Case "20/3": icr = 7620 * point
  83.     Case "20/4": icr = 7780 * point
  84.     Case "20/5": icr = 7940 * point
  85.     Case Else
  86.                 icr = 0
  87. End Select
  88. End Function
Advertisement
RAW Paste Data Copied
Advertisement