Function SA0910Pell(EFC As Double, CR As Double) As Double Dim P As Double P = 0 Select Case EFC Case Is = 0 If CR >= 12 Then P = 1783.33 ElseIf CR >= 9 And CR < 12 Then P = 1337.67 ElseIf CR >= 6 And CR < 9 Then P = 891.67 ElseIf CR < 6 Then P = 446 End If Case 1 To 100 If CR >= 12 Then P = 1766.67 ElseIf CR >= 9 And CR < 12 Then P = 1325 ElseIf CR >= 6 And CR < 9 Then P = 883.33 ElseIf CR < 6 Then P = 441.67 End If Case 101 To 200 If CR >= 12 Then P = 1733.33 ElseIf CR >= 9 And CR < 12 Then P = 1300 ElseIf CR >= 6 And CR < 9 Then P = 866.67 ElseIf CR < 6 Then P = 433.33 End If Case 201 To 300 If CR >= 12 Then P = 1700 ElseIf CR >= 9 And CR < 12 Then P = 1275 ElseIf CR >= 6 And CR < 9 Then P = 850 ElseIf CR < 6 Then P = 425 End If Case 301 To 400 If CR >= 12 Then P = 1666.67 ElseIf CR >= 9 And CR < 12 Then P = 1250 ElseIf CR >= 6 And CR < 9 Then P = 833.33 ElseIf CR < 6 Then P = 416.67 End If Case 401 To 500 If CR >= 12 Then P = 1633.33 ElseIf CR >= 9 And CR < 12 Then P = 1225 ElseIf CR >= 6 And CR < 9 Then P = 816.67 ElseIf CR < 6 Then P = 408.33 End If Case 501 To 600 If CR >= 12 Then P = 1600 ElseIf CR >= 9 And CR < 12 Then P = 1200 ElseIf CR >= 6 And CR < 9 Then P = 800 ElseIf CR < 6 Then P = 400 End If Case 601 To 700 If CR >= 12 Then P = 1566.67 ElseIf CR >= 9 And CR < 12 Then P = 1175 ElseIf CR >= 6 And CR < 9 Then P = 783.33 ElseIf CR < 6 Then P = 391.67 End If Case 701 To 800 If CR >= 12 Then P = 1533.33 ElseIf CR >= 9 And CR < 12 Then P = 1150 ElseIf CR >= 6 And CR < 9 Then P = 766.67 ElseIf CR < 6 Then P = 383.33 End If Case 801 To 900 If CR >= 12 Then P = 1500 ElseIf CR >= 9 And CR < 12 Then P = 1125 ElseIf CR >= 6 And CR < 9 Then P = 750 ElseIf CR < 6 Then P = 375 End If Case 901 To 1000 If CR >= 12 Then P = 1466.67 ElseIf CR >= 9 And CR < 12 Then P = 1100 ElseIf CR >= 6 And CR < 9 Then P = 733.33 ElseIf CR < 6 Then P = 366.67 End If Case 1001 To 1100 If CR >= 12 Then P = 1433.33 ElseIf CR >= 9 And CR < 12 Then P = 1075 ElseIf CR >= 6 And CR < 9 Then P = 716.67 ElseIf CR < 6 Then P = 358.33 End If Case 1101 To 1200 If CR >= 12 Then P = 1400 ElseIf CR >= 9 And CR < 12 Then P = 1050 ElseIf CR >= 6 And CR < 9 Then P = 700 ElseIf CR < 6 Then P = 350 End If Case 1201 To 1300 If CR >= 12 Then P = 1366.67 ElseIf CR >= 9 And CR < 12 Then P = 1025 ElseIf CR >= 6 And CR < 9 Then P = 683.33 ElseIf CR < 6 Then P = 341.67 End If Case 1301 To 1400 If CR >= 12 Then P = 1333.33 ElseIf CR >= 9 And CR < 12 Then P = 1000 ElseIf CR >= 6 And CR < 9 Then P = 666.67 ElseIf CR < 6 Then P = 333.33 End If Case 1401 To 1500 If CR >= 12 Then P = 1300 ElseIf CR >= 9 And CR < 12 Then P = 975 ElseIf CR >= 6 And CR < 9 Then P = 650 ElseIf CR < 6 Then P = 325 End If Case 1501 To 1600 If CR >= 12 Then P = 1266.67 ElseIf CR >= 9 And CR < 12 Then P = 950 ElseIf CR >= 6 And CR < 9 Then P = 633.33 ElseIf CR < 6 Then P = 316.67 End If Case 1601 To 1700 If CR >= 12 Then P = 1233.33 ElseIf CR >= 9 And CR < 12 Then P = 925 ElseIf CR >= 6 And CR < 9 Then P = 616.67 ElseIf CR < 6 Then P = 308.33 End If Case 1701 To 1800 If CR >= 12 Then P = 1200 ElseIf CR >= 9 And CR < 12 Then P = 900 ElseIf CR >= 6 And CR < 9 Then P = 600 ElseIf CR < 6 Then P = 300 End If Case 1801 To 1900 If CR >= 12 Then P = 1166.67 ElseIf CR >= 9 And CR < 12 Then P = 875 ElseIf CR >= 6 And CR < 9 Then P = 583.33 ElseIf CR < 6 Then P = 291.67 End If Case 1901 To 2000 If CR >= 12 Then P = 1133.33 ElseIf CR >= 9 And CR < 12 Then P = 850 ElseIf CR >= 6 And CR < 9 Then P = 566.67 ElseIf CR < 6 Then P = 283.33 End If Case 2001 To 2100 If CR >= 12 Then P = 1100 ElseIf CR >= 9 And CR < 12 Then P = 825 ElseIf CR >= 6 And CR < 9 Then P = 550 ElseIf CR < 6 Then P = 275 End If Case 2101 To 2200 If CR >= 12 Then P = 1066.67 ElseIf CR >= 9 And CR < 12 Then P = 800 ElseIf CR >= 6 And CR < 9 Then P = 533.33 ElseIf CR < 6 Then P = 266.67 End If Case 2201 To 2300 If CR >= 12 Then P = 1033.33 ElseIf CR >= 9 And CR < 12 Then P = 775 ElseIf CR >= 6 And CR < 9 Then P = 516.67 ElseIf CR < 6 Then P = 258.33 End If Case 2301 To 2400 If CR >= 12 Then P = 1000 ElseIf CR >= 9 And CR < 12 Then P = 750 ElseIf CR >= 6 And CR < 9 Then P = 500 ElseIf CR < 6 Then P = 250 End If Case 2401 To 2500 If CR >= 12 Then P = 966.67 ElseIf CR >= 9 And CR < 12 Then P = 725 ElseIf CR >= 6 And CR < 9 Then P = 483.33 ElseIf CR < 6 Then P = 241.67 End If Case 2501 To 2600 If CR >= 12 Then P = 933.33 ElseIf CR >= 9 And CR < 12 Then P = 700 ElseIf CR >= 6 And CR < 9 Then P = 466.67 ElseIf CR < 6 Then P = 233.33 End If Case 2601 To 2700 If CR >= 12 Then P = 900 ElseIf CR >= 9 And CR < 12 Then P = 675 ElseIf CR >= 6 And CR < 9 Then P = 450 ElseIf CR < 6 Then P = 225 End If Case 2701 To 2800 If CR >= 12 Then P = 866.67 ElseIf CR >= 9 And CR < 12 Then P = 650 ElseIf CR >= 6 And CR < 9 Then P = 433.33 ElseIf CR < 6 Then P = 216.67 End If Case 2801 To 2900 If CR >= 12 Then P = 833.33 ElseIf CR >= 9 And CR < 12 Then P = 625 ElseIf CR >= 6 And CR < 9 Then P = 416.67 ElseIf CR < 6 Then P = 208.33 End If Case 2901 To 3000 If CR >= 12 Then P = 800 ElseIf CR >= 9 And CR < 12 Then P = 600 ElseIf CR >= 6 And CR < 9 Then P = 400 ElseIf CR < 6 Then P = 203 End If Case 3001 To 3100 If CR >= 12 Then P = 766.67 ElseIf CR >= 9 And CR < 12 Then P = 575 ElseIf CR >= 6 And CR < 9 Then P = 383.33 ElseIf CR < 6 Then P = 203 End If Case 3101 To 3200 If CR >= 12 Then P = 733.33 ElseIf CR >= 9 And CR < 12 Then P = 550 ElseIf CR >= 6 And CR < 9 Then P = 366.67 ElseIf CR < 6 Then P = 203 End If Case 3201 To 3300 If CR >= 12 Then P = 700 ElseIf CR >= 9 And CR < 12 Then P = 525 ElseIf CR >= 6 And CR < 9 Then P = 350 ElseIf CR < 6 Then P = 203 End If Case 3301 To 3400 If CR >= 12 Then P = 666.67 ElseIf CR >= 9 And CR < 12 Then P = 500 ElseIf CR >= 6 And CR < 9 Then P = 333.33 ElseIf CR < 6 Then P = 203 End If Case 3401 To 3500 If CR >= 12 Then P = 633.33 ElseIf CR >= 9 And CR < 12 Then P = 475 ElseIf CR >= 6 And CR < 9 Then P = 316.67 ElseIf CR < 6 Then P = 203 End If Case 3501 To 3600 If CR >= 12 Then P = 600 ElseIf CR >= 9 And CR < 12 Then P = 450 ElseIf CR >= 6 And CR < 9 Then P = 300 ElseIf CR < 6 Then P = 203 End If Case 3601 To 3700 If CR >= 12 Then P = 566.67 ElseIf CR >= 9 And CR < 12 Then P = 425 ElseIf CR >= 6 And CR < 9 Then P = 283.33 ElseIf CR < 6 Then P = 203 End If Case 3701 To 3800 If CR >= 12 Then P = 533.33 ElseIf CR >= 9 And CR < 12 Then P = 400 ElseIf CR >= 6 And CR < 9 Then P = 266.67 ElseIf CR < 6 Then P = 203 End If Case 3801 To 3900 If CR >= 12 Then P = 500 ElseIf CR >= 9 And CR < 12 Then P = 375 ElseIf CR >= 6 And CR < 9 Then P = 250 ElseIf CR < 6 Then P = 203 End If Case 3901 To 4000 If CR >= 12 Then P = 466.67 ElseIf CR >= 9 And CR < 12 Then P = 350 ElseIf CR >= 6 And CR < 9 Then P = 243.67 ElseIf CR < 6 Then P = 0 End If Case 4001 To 4100 If CR >= 12 Then P = 433.33 ElseIf CR >= 9 And CR < 12 Then P = 325 ElseIf CR >= 6 And CR < 9 Then P = 243.67 ElseIf CR < 6 Then P = 0 End If Case 4101 To 4200 If CR >= 12 Then P = 400 ElseIf CR >= 9 And CR < 12 Then P = 300 ElseIf CR >= 6 And CR < 9 Then P = 243.67 ElseIf CR < 6 Then P = 0 End If Case 4201 To 4300 If CR >= 12 Then P = 366.67 ElseIf CR >= 9 And CR < 12 Then P = 284.67 ElseIf CR >= 6 And CR < 9 Then P = 243.67 ElseIf CR < 6 Then P = 0 End If Case 4301 To 4400 If CR >= 12 Then P = 333.33 ElseIf CR >= 9 And CR < 12 Then P = 284.67 ElseIf CR >= 6 And CR < 9 Then P = 243.67 ElseIf CR < 6 Then P = 0 End If Case 4401 To 4500 If CR >= 12 Then P = 325.33 ElseIf CR >= 9 And CR < 12 Then P = 284.67 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 4501 To 4600 If CR >= 12 Then P = 325.33 ElseIf CR >= 9 And CR < 12 Then P = 0 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 4601 To 4617 If CR >= 12 Then P = 325.33 ElseIf CR >= 9 And CR < 12 Then P = 0 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 4618 To 99999999 If CR >= 12 Then P = 0 ElseIf CR >= 9 And CR < 12 Then P = 0 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If End Select SA0910Pell = P End Function