الرئيسية
إليكم هذا البرنامج(module) لحساب IFC ,SALAIRE DE BASE, IEP ,IDR و كتابة الأرقام بالعربية والفرنسية
وماعليكم سوى فتح برنامجEXEL ثم VISUEL BASIC EL [sub][/sub ثم نسخ هذا البرنامج في module ^$d جديد
' formatnombre Macro
' Macro enregistrée le 28-02-98 par faycal zenati
'
Sub formatnombred()
Selection.NumberFormat = "@ "
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
End Sub
Sub formatnombrec()
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
End Sub
Function Arrondir(ByVal ValeurArrondi As Double, ByVal NbreDeci As Integer) As Double
Arrondir = ValeurArrondi + (4 * 10 ^ -(NbreDeci + 1))
Arrondir = Int(Arrondir * 10 ^ NbreDeci) / 10 ^ NbreDeci
End Function
Function Arret(total As Double) As String
Dim Millions As Double
Dim Milles As Double
Dim Var3, Var4 As Double
Dim Pdecimale As Double
Pdecimale = total - Fix(total)
total = total - Pdecimale
Pdecimale = Application.Round(Pdecimale, 2)
Pdecimale = Pdecimale * 100
'Message total
Millions = total \ 1000000
Var3 = total Mod 1000000
Milles = Var3 \ 1000
Var4 = Var3 Mod 1000
Machainefinale = ""
If Millions = 1 Or Millions = 101 Then
Machainefinale = Machainefinale + ChiffreLettre3(Millions) + " MILLION"
End If
If Millions > 1 And Millions <> 101 Then
Machainefinale = Machainefinale + ChiffreLettre3(Millions) + " MILLIONS"
End If
If Milles = 101 Then
Machainefinale = Machainefinale + " " + ChiffreLettre3(Milles) + " MILLE"
End If
If Milles = 1 Then
Machainefinale = Machainefinale + " MILLE"
End If
If Milles > 1 And Milles <> 101 Then
Machainefinale = Machainefinale + " " + ChiffreLettre3(Milles) + " MILLE"
End If
Machainefinale = Machainefinale + " " + ChiffreLettre3(Var4)
DA = ""
If total = 1 Then
DA = " DINAR ALGERIEN"
End If
If total > 1 Then
DA = " DINARS ALGERIENS"
End If
Machainefinale = Machainefinale + DA
Liaison = ""
If total <> 0 Then
Liaison = " ET "
End If
If Pdecimale <> 0 Then
Machainefinale = Machainefinale + Liaison + ChiffreLettre3(Pdecimale) + " CENTIMES"
End If
Arret = Machainefinale
End Function
Function ChiffreLettre3(Sum As Double) As String
Dim Var1, Cent, Dizaine, Unite As Double
If Sum < 0 Then ' Evalue l'argument.
Exit Function ' Sort pour revenir à la
' procédure appelante.
Else
MaChaîne = ""
Var1 = Sum Mod 100
Unite = Sum Mod 10
Cent = Sum \ 100
Dizaine = Var1 \ 10
If Cent = 1 Then MaChaîne = MaChaîne + "CENT"
Select Case Cent
Case 2
MaChaîne = MaChaîne + "DEUX"
Case 3
MaChaîne = MaChaîne + "TROIS"
Case 4
MaChaîne = MaChaîne + "QUATRE"
Case 5
MaChaîne = MaChaîne + "CINQ"
Case 6
MaChaîne = MaChaîne + "SIX"
Case 7
MaChaîne = MaChaîne + "SEPT"
Case 8
MaChaîne = MaChaîne + "HUIT"
Case 9
MaChaîne = MaChaîne + "NEUF"
End Select
If Cent > 1 Then MaChaîne = MaChaîne + " CENT"
If Cent > 1 Then MaChaîne = MaChaîne + "S"
If Sum > 100 Then MaChaîne = MaChaîne + " "
Select Case Dizaine
Case 2
MaChaîne = MaChaîne + "VINGT"
Case 3
MaChaîne = MaChaîne + "TRENTE"
Case 4
MaChaîne = MaChaîne + "QUARANTE"
Case 5
MaChaîne = MaChaîne + "CINQUANTE"
Case 6
MaChaîne = MaChaîne + "SOIXANTE"
Case 7
MaChaîne = MaChaîne + "SOIXANTE"
Case 8
If Unite = 0 Then
MaChaîne = MaChaîne + "QUATRE-VINGTS"
Else
MaChaîne = MaChaîne + "QUATRE-VINGT"
End If
Case 9
If Unite = 0 Then
MaChaîne = MaChaîne + "QUATRE-VINGTS"
Else
MaChaîne = MaChaîne + "QUATRE-VINGT"
End If
End Select
If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then
If (Dizaine = 7 Or Dizaine = 9) Then
If Dizaine = 7 And Unite = 1 Then
MaChaîne = MaChaîne + " ET "
Else
MaChaîne = MaChaîne + "-"
End If
End If
Select Case Unite
Case 0
MaChaîne = MaChaîne + "DIX"
Case 1
MaChaîne = MaChaîne + "ONZE"
Case 2
MaChaîne = MaChaîne + "DOUZE"
Case 3
MaChaîne = MaChaîne + "TREIZE"
Case 4
MaChaîne = MaChaîne + "QUATORZE"
Case 5
MaChaîne = MaChaîne + "QUINZE"
Case 6
MaChaîne = MaChaîne + "SEIZE"
Case 7
MaChaîne = MaChaîne + "DIX-SEPT"
Case 8
MaChaîne = MaChaîne + "DIX-HUIT"
Case 9
MaChaîne = MaChaîne + "DIX-NEUF"
End Select
Else
If Unite = 1 And Dizaine > 1 Then
MaChaîne = MaChaîne + " ET "
End If
If Dizaine > 1 And Unite > 1 Then
MaChaîne = MaChaîne + "-"
End If
Select Case Unite
Case 1
MaChaîne = MaChaîne + "UN"
Case 2
MaChaîne = MaChaîne + "DEUX"
Case 3
MaChaîne = MaChaîne + "TROIS"
Case 4
MaChaîne = MaChaîne + "QUATRE"
Case 5
MaChaîne = MaChaîne + "CINQ"
Case 6
MaChaîne = MaChaîne + "SIX"
Case 7
MaChaîne = MaChaîne + "SEPT"
Case 8
MaChaîne = MaChaîne + "HUIT"
Case 9
MaChaîne = MaChaîne + "NEUF"
End Select
End If
End If
ChiffreLettre3 = MaChaîne
End Function
'Fonction d'arrêter en arabe V.2.00 du 31/10/1998
'Faite par R.Fayçal.
Function ChiffreLettre3_a(Sum As Double) As String
Dim Var1, Cent, Dizaine, Unite As Double
If Sum < 0 Then ' Evalue l'argument.
Exit Function ' Sort pour revenir à la
' procédure appelante.
Else
MaChaîne = ""
Var1 = Sum Mod 100
Unite = Sum Mod 10
Cent = Sum \ 100
Dizaine = Var1 \ 10
If Sum = 200 Then
MaChaîne = MaChaîne + "مائتي "
Else
If Cent = 2 Then
MaChaîne = MaChaîne + "مائتين "
End If
End If
Select Case Cent
Case 3
MaChaîne = MaChaîne + "ثلاث"
Case 4
MaChaîne = MaChaîne + "أربع"
Case 5
MaChaîne = MaChaîne + "خمس"
Case 6
MaChaîne = MaChaîne + "ست"
Case 7
MaChaîne = MaChaîne + "سبع"
Case 8
MaChaîne = MaChaîne + "ثمان"
Case 9
MaChaîne = MaChaîne + "تسع"
End Select
If Cent <> 2 And Cent <> 0 Then MaChaîne = MaChaîne + "مائة "
If Cent > 0 And (Dizaine > 0 Or Unite > 0) Then MaChaîne = MaChaîne + "و"
If Unite = 1 Then
If Dizaine = 1 Then
MaChaîne = MaChaîne + "إحدى "
Else
MaChaîne = MaChaîne + "واحد "
End If
End If
If Unite = 2 Then
If Dizaine = 1 Then
MaChaîne = MaChaîne + "إثنى "
Else
MaChaîne = MaChaîne + "إثنان "
End If
End If
Select Case Unite
Case 3
MaChaîne = MaChaîne + "ثلاثة "
Case 4
MaChaîne = MaChaîne + "أربعة "
Case 5
MaChaîne = MaChaîne + "خمسة "
Case 6
MaChaîne = MaChaîne + "ستة "
Case 7
MaChaîne = MaChaîne + "سبعة "
Case 8
MaChaîne = MaChaîne + "ثمانية "
Case 9
MaChaîne = MaChaîne + "تسعة "
End Select
If (Dizaine > 1 And Unite > 0) Then MaChaîne = MaChaîne + "و"
Select Case Dizaine
Case 1
MaChaîne = MaChaîne + "عشر "
Case 2
MaChaîne = MaChaîne + "عشرون "
Case 3
MaChaîne = MaChaîne + "ثلاثون "
Case 4
MaChaîne = MaChaîne + "أربعون "
Case 5
MaChaîne = MaChaîne + "خمسون "
Case 6
MaChaîne = MaChaîne + "ستون "
Case 7
MaChaîne = MaChaîne + "سبعون "
Case 8
MaChaîne = MaChaîne + "ثمانون "
Case 9
MaChaîne = MaChaîne + "تسعون "
End Select
End If
ChiffreLettre3_a = MaChaîne
End Function
Function Arreta(total As Double) As String
Dim Millions As Double
Dim Milles As Double
Dim Var3, Var4 As Double
Dim Pdecimale As Double
Pdecimale = total - Fix(total)
total = total - Pdecimale
Pdecimale = Application.Round(Pdecimale, 2)
Pdecimale = Pdecimale * 100
'Message Pdecimale
'Message total
Millions = total \ 1000000
Var3 = total Mod 1000000
Milles = Var3 \ 1000
Var4 = Var3 Mod 1000
Machainefinale = ""
If Millions = 1 Then
Machainefinale = Machainefinale + "مليون "
End If
If total = 2000000 Then
Machainefinale = Machainefinale + "مليوني "
Else
If Millions = 2 Then
Machainefinale = Machainefinale + "مليونين "
End If
End If
If Millions > 2 And Millions <= 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Millions) + "ملايين "
End If
If Millions > 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Millions) + "مليون "
End If
If Milles > 0 And total > 1000000 Then
Machainefinale = Machainefinale + "و"
End If
If Milles = 1 Then
Machainefinale = Machainefinale + "ألف "
End If
If total = 2000 Then
Machainefinale = Machainefinale + "ألفي "
Else
If Milles = 2 Then
Machainefinale = Machainefinale + "ألفين "
End If
End If
If Milles > 2 And Milles <= 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Milles) + "آلاف "
End If
If Milles > 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Milles) + "ألف "
End If
If total > 1000 And Var4 <> 0 Then
Machainefinale = Machainefinale + "و"
End If
Machainefinale = Machainefinale + ChiffreLettre3_a(Var4)
If (total <> 0) Then
If (Var4 Mod 100) > 2 And (Var4 Mod 100) <= 10 Then
DA = "دينار جزائري "
Else
DA = "دينار جزائري "
End If
End If
Machainefinale = Machainefinale + DA
Liaison = ""
If total <> 0 Then
Liaison = "و"
End If
If Pdecimale = 1 Then
CT = "سنتيما واحدا"
Machainefinale = Machainefinale + Liaison + CT
End If
If Pdecimale = 2 Then
CT = "سنتيمين"
Machainefinale = Machainefinale + Liaison + CT
End If
If Pdecimale > 2 And Pdecimale <= 10 Then
CT = "سنتيم"
End If
If Pdecimale > 10 Then
CT = "سنتيم"
End If
If Pdecimale > 2 Then
Machainefinale = Machainefinale + Liaison + ChiffreLettre3_a(Pdecimale) + CT
End If
Arreta = Machainefinale
End Function
Function irg(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 15000 Then
If i > 15000 And i < 22510 Then
irg = (i - p - 15000) / 5
End If
If i >= 22510 And i < 28760 Then
irg = ((i - p - 22500) * 0.12) + 1500
End If
If i >= 28760 And i < 30010 Then
irg = ((i - p - 28750) / 5) + 2250
End If
If i >= 30010 Then
irg = ((i - p - 30000) / 10 * 3) + 2500
End If
End If
End Function
Function IFC(i)
i = Format(i, "000.00")
If i > 1 And i <= 6 Then
IFC = 3200
End If
If i >= 7 And i <= 8 Then
IFC = 2500
End If
If i >= 9 And i <= 10 Then
IFC = 2000
End If
If i >= 12 Then
IFC = 1500
End If
End Function
Function SDBidx(cat)
cat = Format(cat, "00")
If cat = 1 Then
SDBidx = 200
End If
If cat = 2 Then
SDBidx = 219
End If
If cat = 3 Then
SDBidx = 240
End If
If cat = 4 Then
SDBidx = 263
End If
If cat = 5 Then
SDBidx = 288
End If
If cat = 6 Then
SDBidx = 315
End If
If cat = 7 Then
SDBidx = 348
End If
If cat = 8 Then
SDBidx = 379
End If
If cat = 9 Then
SDBidx = 418
End If
If cat = 10 Then
SDBidx = 453
End If
If cat = 11 Then
SDBidx = 498
End If
If cat = 12 Then
SDBidx = 537
End If
If cat = 13 Then
SDBidx = 578
End If
If cat = 14 Then
SDBidx = 621
End If
If cat = 15 Then
SDBidx = 666
End If
If cat = 16 Then
SDBidx = 713
End If
If cat = 17 Then
SDBidx = 762
End If
If cat = sub01 Then
SDBidx = 930
End If
If cat = sub02 Then
SDBidx = 990
End If
If cat = sub03 Then
SDBidx = 1055
End If
If cat = sub04 Then
SDBidx = 1125
End If
If cat = sub05 Then
SDBidx = 1200
End If
If cat = sub06 Then
SDBidx = 1280
End If
If cat = sub07 Then
SDBidx = 1480
End If
End Function
Function IEPidx(cat, ech)
If cat = 1 Then
If ech = 1 Then
IEPidx = 10
End If
If ech = 2 Then
IEPidx = 20
End If
If ech = 3 Then
IEPidx = 30
End If
If ech = 4 Then
IEPidx = 40
End If
If ech = 5 Then
IEPidx = 50
End If
If ech = 6 Then
IEPidx = 60
End If
If ech = 7 Then
IEPidx = 70
End If
If ech = 8 Then
IEPidx = 80
End If
If ech = 9 Then
IEPidx = 90
End If
If ech = 10 Then
IEPidx = 100
End If
If ech = 11 Then
IEPidx = 110
End If
If ech = 12 Then
IEPidx = 120
End If
End If
If cat = 2 Then
If ech = 1 Then
IEPidx = 11
End If
If ech = 2 Then
IEPidx = 22
End If
If ech = 3 Then
IEPidx = 33
End If
If ech = 4 Then
IEPidx = 44
End If
If ech = 5 Then
IEPidx = 55
End If
If ech = 6 Then
IEPidx = 66
End If
If ech = 7 Then
IEPidx = 77
End If
If ech = 8 Then
IEPidx = 88
End If
If ech = 9 Then
IEPidx = 99
End If
If ech = 10 Then
IEPidx = 110
End If
If ech = 11 Then
IEPidx = 120
End If
If ech = 12 Then
IEPidx = 131
End If
End If
If cat = 3 Then
If ech = 1 Then
IEPidx = 12
End If
If ech = 2 Then
IEPidx = 24
End If
If ech = 3 Then
IEPidx = 36
End If
If ech = 4 Then
IEPidx = 48
End If
If ech = 5 Then
IEPidx = 60
End If
If ech = 6 Then
IEPidx = 72
End If
If ech = 7 Then
IEPidx = 84
End If
If ech = 8 Then
IEPidx = 96
End If
If ech = 9 Then
IEPidx = 108
End If
If ech = 10 Then
IEPidx = 120
End If
If ech = 11 Then
IEPidx = 132
End If
If ech = 12 Then
IEPidx = 144
End If
End If
If cat = 4 Then
If ech = 1 Then
IEPidx = 13
End If
If ech = 2 Then
IEPidx = 26
End If
If ech = 3 Then
IEPidx = 39
End If
If ech = 4 Then
IEPidx = 53
End If
If ech = 5 Then
IEPidx = 66
End If
If ech = 6 Then
IEPidx = 79
End If
If ech = 7 Then
IEPidx = 92
End If
If ech = 8 Then
IEPidx = 105
End If
If ech = 9 Then
IEPidx = 118
End If
If ech = 10 Then
IEPidx = 132
End If
If ech = 11 Then
IEPidx = 145
End If
If ech = 12 Then
IEPidx = 158
End If
End If
If cat = 5 Then
If ech = 1 Then
IEPidx = 14
End If
If ech = 2 Then
IEPidx = 29
End If
If ech = 3 Then
IEPidx = 43
End If
If ech = 4 Then
IEPidx = 58
End If
If ech = 5 Then
IEPidx = 72
End If
If ech = 6 Then
IEPidx = 86
End If
If ech = 7 Then
IEPidx = 101
End If
If ech = 8 Then
IEPidx = 115
End If
If ech = 9 Then
IEPidx = 130
End If
If ech = 10 Then
IEPidx = 144
End If
If ech = 11 Then
IEPidx = 158
End If
If ech = 12 Then
IEPidx = 173
End If
End If
If cat = 6 Then
If ech = 1 Then
IEPidx = 16
End If
If ech = 2 Then
IEPidx = 32
End If
If ech = 3 Then
IEPidx = 47
End If
If ech = 4 Then
IEPidx = 63
End If
If ech = 5 Then
IEPidx = 79
End If
If ech = 6 Then
IEPidx = 95
End If
If ech = 7 Then
IEPidx = 110
End If
If ech = 8 Then
IEPidx = 126
End If
If ech = 9 Then
IEPidx = 142
End If
If ech = 10 Then
IEPidx = 158
End If
If ech = 11 Then
IEPidx = 173
End If
If ech = 12 Then
IEPidx = 189
End If
End If
If cat = 7 Then
If ech = 1 Then
IEPidx = 17
End If
If ech = 2 Then
IEPidx = 35
End If
If ech = 3 Then
IEPidx = 52
End If
If ech = 4 Then
IEPidx = 70
End If
If ech = 5 Then
IEPidx = 87
End If
If ech = 6 Then
IEPidx = 104
End If
If ech = 7 Then
IEPidx = 122
End If
If ech = 8 Then
IEPidx = 139
End If
If ech = 9 Then
IEPidx = 157
End If
If ech = 10 Then
IEPidx = 174
End If
If ech = 11 Then
IEPidx = 191
End If
If ech = 12 Then
IEPidx = 209
End If
End If
If cat = 8 Then
If ech = 1 Then
IEPidx = 19
End If
If ech = 2 Then
IEPidx = 38
End If
If ech = 3 Then
IEPidx = 57
End If
If ech = 4 Then
IEPidx = 76
End If
If ech = 5 Then
IEPidx = 95
End If
If ech = 6 Then
IEPidx = 114
End If
If ech = 7 Then
IEPidx = 133
End If
If ech = 8 Then
IEPidx = 152
End If
If ech = 9 Then
IEPidx = 171
End If
If ech = 10 Then
IEPidx = 190
End If
If ech = 11 Then
IEPidx = 208
End If
If ech = 12 Then
IEPidx = 225
End If
End If
If cat = 9 Then
If ech = 1 Then
IEPidx = 21
End If
If ech = 2 Then
IEPidx = 42
End If
If ech = 3 Then
IEPidx = 63
End If
If ech = 4 Then
IEPidx = 84
End If
If ech = 5 Then
IEPidx = 105
End If
If ech = 6 Then
IEPidx = 125
End If
If ech = 7 Then
IEPidx = 146
End If
If ech = 8 Then
IEPidx = 167
End If
If ech = 9 Then
IEPidx = 188
End If
If ech = 10 Then
IEPidx = 209
End If
If ech = 11 Then
IEPidx = 230
End If
If ech = 12 Then
IEPidx = 251
End If
End If
If cat = 10 Then
If ech = 1 Then
IEPidx = 23
End If
If ech = 2 Then
IEPidx = 45
End If
If ech = 3 Then
IEPidx = 68
End If
If ech = 4 Then
IEPidx = 91
End If
If ech = 5 Then
IEPidx = 113
End If
If ech = 6 Then
IEPidx = 136
End If
If ech = 7 Then
IEPidx = 159
End If
If ech = 8 Then
IEPidx = 181
End If
If ech = 9 Then
IEPidx = 204
End If
If ech = 10 Then
IEPidx = 227
End If
If ech = 11 Then
IEPidx = 249
End If
If ech = 12 Then
IEPidx = 272
End If
End If
If cat = 11 Then
If ech = 1 Then
IEPidx = 25
End If
If ech = 2 Then
IEPidx = 50
End If
If ech = 3 Then
IEPidx = 75
End If
If ech = 4 Then
IEPidx = 100
End If
If ech = 5 Then
IEPidx = 125
End If
If ech = 6 Then
IEPidx = 149
End If
If ech = 7 Then
IEPidx = 174
End If
If ech = 8 Then
IEPidx = 199
End If
If ech = 9 Then
IEPidx = 224
End If
If ech = 10 Then
IEPidx = 249
End If
If ech = 11 Then
IEPidx = 274
End If
If ech = 12 Then
IEPidx = 299
End If
End If
If cat = 12 Then
If ech = 1 Then
IEPidx = 27
End If
If ech = 2 Then
IEPidx = 54
End If
If ech = 3 Then
IEPidx = 81
End If
If ech = 4 Then
IEPidx = 107
End If
If ech = 5 Then
IEPidx = 134
End If
If ech = 6 Then
IEPidx = 161
End If
If ech = 7 Then
IEPidx = 188
End If
If ech = 8 Then
IEPidx = 215
End If
If ech = 9 Then
IEPidx = 242
End If
If ech = 10 Then
IEPidx = 269
End If
If ech = 11 Then
IEPidx = 295
End If
If ech = 12 Then
IEPidx = 322
End If
End If
If cat = 13 Then
If ech = 1 Then
IEPidx = 29
End If
If ech = 2 Then
IEPidx = 58
End If
If ech = 3 Then
IEPidx = 87
End If
If ech = 4 Then
IEPidx = 116
End If
If ech = 5 Then
IEPidx = 145
End If
If ech = 6 Then
IEPidx = 173
End If
If ech = 7 Then
IEPidx = 202
End If
If ech = 8 Then
IEPidx = 231
End If
If ech = 9 Then
IEPidx = 260
End If
If ech = 10 Then
IEPidx = 289
End If
If ech = 11 Then
IEPidx = 318
End If
If ech = 12 Then
IEPidx = 347
End If
End If
If cat = 14 Then
If ech = 1 Then
IEPidx = 31
End If
If ech = 2 Then
IEPidx = 62
End If
If ech = 3 Then
IEPidx = 93
End If
If ech = 4 Then
IEPidx = 124
End If
If ech = 5 Then
IEPidx = 155
End If
If ech = 6 Then
IEPidx = 186
End If
If ech = 7 Then
IEPidx = 217
End If
If ech = 8 Then
IEPidx = 248
End If
If ech = 9 Then
IEPidx = 279
End If
If ech = 10 Then
IEPidx = 311
End If
If ech = 11 Then
IEPidx = 342
End If
If ech = 12 Then
IEPidx = 373
End If
End If
If cat = 15 Then
If ech = 1 Then
IEPidx = 33
End If
If ech = 2 Then
IEPidx = 67
End If
If ech = 3 Then
IEPidx = 100
End If
If ech = 4 Then
IEPidx = 133
End If
If ech = 5 Then
IEPidx = 167
End If
If ech = 6 Then
IEPidx = 200
End If
If ech = 7 Then
IEPidx = 233
End If
If ech = 8 Then
IEPidx = 266
End If
If ech = 9 Then
IEPidx = 300
End If
If ech = 10 Then
IEPidx = 333
End If
If ech = 11 Then
IEPidx = 366
End If
If ech = 12 Then
IEPidx = 400
End If
End If
If cat = 16 Then
If ech = 1 Then
IEPidx = 36
End If
If ech = 2 Then
IEPidx = 71
End If
If ech = 3 Then
IEPidx = 107
End If
If ech = 4 Then
IEPidx = 143
End If
If ech = 5 Then
IEPidx = 178
End If
If ech = 6 Then
IEPidx = 214
End If
If ech = 7 Then
IEPidx = 250
End If
If ech = 8 Then
IEPidx = 285
End If
If ech = 9 Then
IEPidx = 321
End If
If ech = 10 Then
IEPidx = 357
End If
If ech = 11 Then
IEPidx = 392
End If
If ech = 12 Then
IEPidx = 428
End If
End If
If cat = 17 Then
If ech = 1 Then
IEPidx = 38
End If
If ech = 2 Then
IEPidx = 76
End If
If ech = 3 Then
IEPidx = 114
End If
If ech = 4 Then
IEPidx = 152
End If
If ech = 5 Then
IEPidx = 191
End If
If ech = 6 Then
IEPidx = 229
End If
If ech = 7 Then
IEPidx = 267
End If
If ech = 8 Then
IEPidx = 305
End If
If ech = 9 Then
IEPidx = 343
End If
If ech = 10 Then
IEPidx = 381
End If
If ech = 11 Then
IEPidx = 419
End If
If ech = 12 Then
IEPidx = 457
End If
End If
End Function
'Proc essai()
'Arret ()
'Fin Proc
Sub ARDNR()
End Sub
Function IDR(brut, pri)
If brut + pri < 15000 Then
IDR = 15000 - pri
End If
If brut + pri > 15000 Then
IDR = 0
End If
End Function
