Function A2122Pell(CR, EFC) As Double Dim P As Double P = 0 If CR >= 12 Then Select Case EFC Case Is = 0 P = 2165 Case 1 To 100 P = 2148 Case 101 To 200 P = 2115 Case 201 To 300 P = 2082 Case 301 To 400 P = 2048 Case 401 To 500 P = 2015 Case 501 To 600 P = 1982 Case 601 To 700 P = 1948 Case 701 To 800 P = 1915 Case 801 To 900 P = 1882 Case 901 To 1000 P = 1848 Case 1001 To 1100 P = 1815 Case 1101 To 1200 P = 1782 Case 1201 To 1300 P = 1748 Case 1301 To 1400 P = 1715 Case 1401 To 1500 P = 1682 Case 1501 To 1600 P = 1648 Case 1601 To 1700 P = 1615 Case 1701 To 1800 P = 1582 Case 1801 To 1900 P = 1548 Case 1901 To 2000 P = 1515 Case 2001 To 2100 P = 1482 Case 2101 To 2200 P = 1448 Case 2201 To 2300 P = 1415 Case 2301 To 2400 P = 1382 Case 2401 To 2500 P = 1348 Case 2501 To 2600 P = 1315 Case 2601 To 2700 P = 1282 Case 2701 To 2800 P = 1248 Case 2801 To 2900 P = 1215 Case 2901 To 3000 P = 1182 Case 3001 To 3100 P = 1148 Case 3101 To 3200 P = 1115 Case 3201 To 3300 P = 1082 Case 3301 To 3400 P = 1048 Case 3401 To 3500 P = 1015 Case 3501 To 3600 P = 982 Case 3601 To 3700 P = 948 Case 3701 To 3800 P = 915 Case 3801 To 3900 P = 882 Case 3901 To 4000 P = 848 Case 4001 To 4100 P = 815 Case 4101 To 4200 P = 782 Case 4201 To 4300 P = 748 Case 4301 To 4400 P = 715 Case 4401 To 4500 P = 682 Case 4501 To 4600 P = 648 Case 4601 To 4700 P = 615 Case 4701 To 4800 P = 582 Case 4801 To 4900 P = 548 Case 4901 To 5000 P = 515 Case 5001 To 5100 P = 482 Case 5101 To 5200 P = 448 Case 5201 To 5300 P = 415 Case 5301 To 5400 P = 382 Case 5401 To 5500 P = 348 Case 5501 To 5600 P = 315 Case 5601 To 5700 P = 282 Case 5701 To 5800 P = 248 Case 5801 To 5846 P = 224 Case 5847 To 999999 P = 0 End Select ElseIf CR >= 9 And CR < 12 Then Select Case EFC Case Is = 0 P = 1624 Case 1 To 100 P = 1611 Case 101 To 200 P = 1586 Case 201 To 300 P = 1561 Case 301 To 400 P = 1536 Case 401 To 500 P = 1511 Case 501 To 600 P = 1486 Case 601 To 700 P = 1461 Case 701 To 800 P = 1436 Case 801 To 900 P = 1411 Case 901 To 1000 P = 1386 Case 1001 To 1100 P = 1361 Case 1101 To 1200 P = 1336 Case 1201 To 1300 P = 1311 Case 1301 To 1400 P = 1286 Case 1401 To 1500 P = 1261 Case 1501 To 1600 P = 1236 Case 1601 To 1700 P = 1211 Case 1701 To 1800 P = 1186 Case 1801 To 1900 P = 1161 Case 1901 To 2000 P = 1136 Case 2001 To 2100 P = 1111 Case 2101 To 2200 P = 1086 Case 2201 To 2300 P = 1061 Case 2301 To 2400 P = 1036 Case 2401 To 2500 P = 1011 Case 2501 To 2600 P = 986 Case 2601 To 2700 P = 961 Case 2701 To 2800 P = 936 Case 2801 To 2900 P = 911 Case 2901 To 3000 P = 886 Case 3001 To 3100 P = 861 Case 3101 To 3200 P = 836 Case 3201 To 3300 P = 811 Case 3301 To 3400 P = 786 Case 3401 To 3500 P = 761 Case 3501 To 3600 P = 736 Case 3601 To 3700 P = 711 Case 3701 To 3800 P = 686 Case 3801 To 3900 P = 661 Case 3901 To 4000 P = 636 Case 4001 To 4100 P = 611 Case 4101 To 4200 P = 586 Case 4201 To 4300 P = 561 Case 4301 To 4400 P = 536 Case 4401 To 4500 P = 511 Case 4501 To 4600 P = 486 Case 4601 To 4700 P = 461 Case 4701 To 4800 P = 436 Case 4801 To 4900 P = 411 Case 4901 To 5000 P = 386 Case 5001 To 5100 P = 361 Case 5101 To 5200 P = 336 Case 5201 To 5300 P = 311 Case 5301 To 5400 P = 286 Case 5401 To 5500 P = 261 Case 5501 To 5600 P = 236 Case 5601 To 999999 P = 0 End Select ElseIf CR >= 6 And CR < 9 Then Select Case EFC Case Is = 0 P = 1083 Case 1 To 100 P = 1074 Case 101 To 200 P = 1058 Case 201 To 300 P = 1041 Case 301 To 400 P = 1024 Case 401 To 500 P = 1008 Case 501 To 600 P = 991 Case 601 To 700 P = 974 Case 701 To 800 P = 958 Case 801 To 900 P = 941 Case 901 To 1000 P = 924 Case 1001 To 1100 P = 908 Case 1101 To 1200 P = 891 Case 1201 To 1300 P = 874 Case 1301 To 1400 P = 858 Case 1401 To 1500 P = 841 Case 1501 To 1600 P = 824 Case 1601 To 1700 P = 808 Case 1701 To 1800 P = 791 Case 1801 To 1900 P = 774 Case 1901 To 2000 P = 758 Case 2001 To 2100 P = 741 Case 2101 To 2200 P = 724 Case 2201 To 2300 P = 708 Case 2301 To 2400 P = 691 Case 2401 To 2500 P = 674 Case 2501 To 2600 P = 658 Case 2601 To 2700 P = 641 Case 2701 To 2800 P = 624 Case 2801 To 2900 P = 608 Case 2901 To 3000 P = 591 Case 3001 To 3100 P = 574 Case 3101 To 3200 P = 558 Case 3201 To 3300 P = 541 Case 3301 To 3400 P = 524 Case 3401 To 3500 P = 508 Case 3501 To 3600 P = 491 Case 3601 To 3700 P = 474 Case 3701 To 3800 P = 458 Case 3801 To 3900 P = 441 Case 3901 To 4000 P = 424 Case 4001 To 4100 P = 408 Case 4101 To 4200 P = 391 Case 4201 To 4300 P = 374 Case 4301 To 4400 P = 358 Case 4401 To 4500 P = 341 Case 4501 To 4600 P = 324 Case 4601 To 4700 P = 308 Case 4701 To 4800 P = 291 Case 4801 To 4900 P = 274 Case 4901 To 5000 P = 258 Case 5001 To 5100 P = 241 Case 5101 To 5200 P = 224 Case 5201 To 999999 P = 0 End Select ElseIf CR < 6 Then Select Case EFC Case Is = 0 P = 541 Case 1 To 100 P = 537 Case 101 To 200 P = 529 Case 201 To 300 P = 520 Case 301 To 400 P = 512 Case 401 To 500 P = 504 Case 501 To 600 P = 495 Case 601 To 700 P = 487 Case 701 To 800 P = 479 Case 801 To 900 P = 470 Case 901 To 1000 P = 462 Case 1001 To 1100 P = 454 Case 1101 To 1200 P = 445 Case 1201 To 1300 P = 437 Case 1301 To 1400 P = 429 Case 1401 To 1500 P = 420 Case 1501 To 1600 P = 412 Case 1601 To 1700 P = 404 Case 1701 To 1800 P = 395 Case 1801 To 1900 P = 387 Case 1901 To 2000 P = 379 Case 2001 To 2100 P = 370 Case 2101 To 2200 P = 362 Case 2201 To 2300 P = 354 Case 2301 To 2400 P = 345 Case 2401 To 2500 P = 337 Case 2501 To 2600 P = 329 Case 2601 To 2700 P = 320 Case 2701 To 2800 P = 312 Case 2801 To 2900 P = 304 Case 2901 To 3000 P = 295 Case 3001 To 3100 P = 287 Case 3101 To 3200 P = 279 Case 3201 To 3300 P = 270 Case 3301 To 3400 P = 262 Case 3401 To 3500 P = 254 Case 3501 To 3600 P = 245 Case 3601 To 3700 P = 237 Case 3701 To 3800 P = 229 Case 3801 To 3900 P = 220 Case 3901 To 999999 P = 0 End Select End If If CR = 0 Then P = 0 End If A2122Pell = P End Function