Function A2021Pell(CR, EFC) As Double Dim P As Double P = 0 If CR >= 12 Then Select Case EFC Case Is = 0 P = 2115 Case 1 To 100 P = 2098 Case 101 To 200 P = 2065 Case 201 To 300 P = 2032 Case 301 To 400 P = 1998 Case 401 To 500 P = 1965 Case 501 To 600 P = 1932 Case 601 To 700 P = 1898 Case 701 To 800 P = 1865 Case 801 To 900 P = 1832 Case 901 To 1000 P = 1798 Case 1001 To 1100 P = 1765 Case 1101 To 1200 P = 1732 Case 1201 To 1300 P = 1698 Case 1301 To 1400 P = 1665 Case 1401 To 1500 P = 1632 Case 1501 To 1600 P = 1598 Case 1601 To 1700 P = 1565 Case 1701 To 1800 P = 1532 Case 1801 To 1900 P = 1498 Case 1901 To 2000 P = 1465 Case 2001 To 2100 P = 1432 Case 2101 To 2200 P = 1398 Case 2201 To 2300 P = 1365 Case 2301 To 2400 P = 1332 Case 2401 To 2500 P = 1298 Case 2501 To 2600 P = 1265 Case 2601 To 2700 P = 1232 Case 2701 To 2800 P = 1198 Case 2801 To 2900 P = 1165 Case 2901 To 3000 P = 1132 Case 3001 To 3100 P = 1098 Case 3101 To 3200 P = 1065 Case 3201 To 3300 P = 1032 Case 3301 To 3400 P = 998 Case 3401 To 3500 P = 965 Case 3501 To 3600 P = 932 Case 3601 To 3700 P = 898 Case 3701 To 3800 P = 865 Case 3801 To 3900 P = 832 Case 3901 To 4000 P = 798 Case 4001 To 4100 P = 765 Case 4101 To 4200 P = 732 Case 4201 To 4300 P = 698 Case 4301 To 4400 P = 665 Case 4401 To 4500 P = 632 Case 4501 To 4600 P = 598 Case 4601 To 4700 P = 565 Case 4701 To 4800 P = 532 Case 4801 To 4900 P = 498 Case 4901 To 5000 P = 465 Case 5001 To 5100 P = 432 Case 5101 To 5200 P = 398 Case 5201 To 5300 P = 365 Case 5301 To 5400 P = 332 Case 5401 To 5500 P = 298 Case 5501 To 5600 P = 265 Case 5601 To 5700 P = 232 Case 5701 To 5711 P = 213 Case 5712 To 999999 P = 0 End Select ElseIf CR >= 9 And CR < 12 Then Select Case EFC Case Is = 0 P = 1586 Case 1 To 100 P = 1574 Case 101 To 200 P = 1549 Case 201 To 300 P = 1524 Case 301 To 400 P = 1499 Case 401 To 500 P = 1474 Case 501 To 600 P = 1449 Case 601 To 700 P = 1424 Case 701 To 800 P = 1399 Case 801 To 900 P = 1374 Case 901 To 1000 P = 1349 Case 1001 To 1100 P = 1224 Case 1101 To 1200 P = 1299 Case 1201 To 1300 P = 1274 Case 1301 To 1400 P = 1249 Case 1401 To 1500 P = 1124 Case 1501 To 1600 P = 1199 Case 1601 To 1700 P = 1174 Case 1701 To 1800 P = 1149 Case 1801 To 1900 P = 1124 Case 1901 To 2000 P = 1099 Case 2001 To 2100 P = 1074 Case 2101 To 2200 P = 1049 Case 2201 To 2300 P = 1024 Case 2301 To 2400 P = 999 Case 2401 To 2500 P = 974 Case 2501 To 2600 P = 949 Case 2601 To 2700 P = 924 Case 2701 To 2800 P = 899 Case 2801 To 2900 P = 874 Case 2901 To 3000 P = 849 Case 3001 To 3100 P = 824 Case 3101 To 3200 P = 799 Case 3201 To 3300 P = 774 Case 3301 To 3400 P = 749 Case 3401 To 3500 P = 724 Case 3501 To 3600 P = 699 Case 3601 To 3700 P = 674 Case 3701 To 3800 P = 649 Case 3801 To 3900 P = 624 Case 3901 To 4000 P = 599 Case 4001 To 4100 P = 574 Case 4101 To 4200 P = 549 Case 4201 To 4300 P = 524 Case 4301 To 4400 P = 499 Case 4401 To 4500 P = 474 Case 4501 To 4600 P = 449 Case 4601 To 4700 P = 424 Case 4701 To 4800 P = 399 Case 4801 To 4900 P = 374 Case 4901 To 5000 P = 349 Case 5001 To 5100 P = 324 Case 5101 To 5200 P = 299 Case 5201 To 5300 P = 274 Case 5301 To 5400 P = 249 Case 5401 To 5500 P = 224 Case 5501 To 999999 P = 0 End Select ElseIf CR >= 6 And CR < 9 Then Select Case EFC Case Is = 0 P = 1058 Case 1 To 100 P = 1049 Case 101 To 200 P = 1033 Case 201 To 300 P = 1016 Case 301 To 400 P = 999 Case 401 To 500 P = 983 Case 501 To 600 P = 966 Case 601 To 700 P = 949 Case 701 To 800 P = 933 Case 801 To 900 P = 916 Case 901 To 1000 P = 899 Case 1001 To 1100 P = 883 Case 1101 To 1200 P = 866 Case 1201 To 1300 P = 849 Case 1301 To 1400 P = 833 Case 1401 To 1500 P = 816 Case 1501 To 1600 P = 799 Case 1601 To 1700 P = 783 Case 1701 To 1800 P = 766 Case 1801 To 1900 P = 749 Case 1901 To 2000 P = 733 Case 2001 To 2100 P = 716 Case 2101 To 2200 P = 699 Case 2201 To 2300 P = 683 Case 2301 To 2400 P = 666 Case 2401 To 2500 P = 649 Case 2501 To 2600 P = 633 Case 2601 To 2700 P = 616 Case 2701 To 2800 P = 599 Case 2801 To 2900 P = 583 Case 2901 To 3000 P = 566 Case 3001 To 3100 P = 549 Case 3101 To 3200 P = 533 Case 3201 To 3300 P = 516 Case 3301 To 3400 P = 499 Case 3401 To 3500 P = 483 Case 3501 To 3600 P = 466 Case 3601 To 3700 P = 449 Case 3701 To 3800 P = 433 Case 3801 To 3900 P = 416 Case 3901 To 4000 P = 399 Case 4001 To 4100 P = 383 Case 4101 To 4200 P = 366 Case 4201 To 4300 P = 349 Case 4301 To 4400 P = 333 Case 4401 To 4500 P = 316 Case 4501 To 4600 P = 299 Case 4601 To 4700 P = 283 Case 4701 To 4800 P = 266 Case 4801 To 4900 P = 249 Case 4901 To 5000 P = 233 Case 5001 To 5100 P = 216 Case 5101 To 999999 P = 0 End Select ElseIf CR < 6 Then Select Case EFC Case Is = 0 P = 529 Case 1 To 100 P = 525 Case 101 To 200 P = 516 Case 201 To 300 P = 508 Case 301 To 400 P = 500 Case 401 To 500 P = 491 Case 501 To 600 P = 483 Case 601 To 700 P = 475 Case 701 To 800 P = 466 Case 801 To 900 P = 458 Case 901 To 1000 P = 450 Case 1001 To 1100 P = 441 Case 1101 To 1200 P = 433 Case 1201 To 1300 P = 425 Case 1301 To 1400 P = 416 Case 1401 To 1500 P = 408 Case 1501 To 1600 P = 400 Case 1601 To 1700 P = 391 Case 1701 To 1800 P = 383 Case 1801 To 1900 P = 375 Case 1901 To 2000 P = 366 Case 2001 To 2100 P = 358 Case 2101 To 2200 P = 350 Case 2201 To 2300 P = 341 Case 2301 To 2400 P = 333 Case 2401 To 2500 P = 325 Case 2501 To 2600 P = 316 Case 2601 To 2700 P = 308 Case 2701 To 2800 P = 300 Case 2801 To 2900 P = 291 Case 2901 To 3000 P = 283 Case 3001 To 3100 P = 275 Case 3101 To 3200 P = 266 Case 3201 To 3300 P = 258 Case 3301 To 3400 P = 250 Case 3401 To 3500 P = 241 Case 3501 To 3600 P = 233 Case 3601 To 3700 P = 225 Case 3701 To 3800 P = 216 Case 3801 To 999999 P = 0 End Select End If If CR = 0 Then P = 0 End If A2021Pell = P End Function