Function SA1718Pell(EFC, CR) As Double Dim P As Double P = 0 Select Case EFC Case Is = 0 If CR >= 12 Then P = 1973 ElseIf CR >= 9 And CR < 12 Then P = 1480 ElseIf CR >= 6 And CR < 9 Then P = 987 ElseIf CR < 6 Then P = 493 End If Case 1 To 100 If CR >= 12 Then P = 1957 ElseIf CR >= 9 And CR < 12 Then P = 1468 ElseIf CR >= 6 And CR < 9 Then P = 978 ElseIf CR < 6 Then P = 489 End If Case 101 To 200 If CR >= 12 Then P = 1923 ElseIf CR >= 9 And CR < 12 Then P = 1443 ElseIf CR >= 6 And CR < 9 Then P = 962 ElseIf CR < 6 Then P = 481 End If Case 201 To 300 If CR >= 12 Then P = 1890 ElseIf CR >= 9 And CR < 12 Then P = 1418 ElseIf CR >= 6 And CR < 9 Then P = 945 ElseIf CR < 6 Then P = 473 End If Case 301 To 400 If CR >= 12 Then P = 1857 ElseIf CR >= 9 And CR < 12 Then P = 1393 ElseIf CR >= 6 And CR < 9 Then P = 928 ElseIf CR < 6 Then P = 464 End If Case 401 To 500 If CR >= 12 Then P = 1823 ElseIf CR >= 9 And CR < 12 Then P = 1368 ElseIf CR >= 6 And CR < 9 Then P = 912 ElseIf CR < 6 Then P = 456 End If Case 501 To 600 If CR >= 12 Then P = 1790 ElseIf CR >= 9 And CR < 12 Then P = 1343 ElseIf CR >= 6 And CR < 9 Then P = 895 ElseIf CR < 6 Then P = 448 End If Case 601 To 700 If CR >= 12 Then P = 1757 ElseIf CR >= 9 And CR < 12 Then P = 1318 ElseIf CR >= 6 And CR < 9 Then P = 878 ElseIf CR < 6 Then P = 439 End If Case 701 To 800 If CR >= 12 Then P = 1723 ElseIf CR >= 9 And CR < 12 Then P = 1293 ElseIf CR >= 6 And CR < 9 Then P = 862 ElseIf CR < 6 Then P = 431 End If Case 801 To 900 If CR >= 12 Then P = 1690 ElseIf CR >= 9 And CR < 12 Then P = 1268 ElseIf CR >= 6 And CR < 9 Then P = 845 ElseIf CR < 6 Then P = 423 End If Case 901 To 1000 If CR >= 12 Then P = 1657 ElseIf CR >= 9 And CR < 12 Then P = 1243 ElseIf CR >= 6 And CR < 9 Then P = 828 ElseIf CR < 6 Then P = 414 End If Case 1001 To 1100 If CR >= 12 Then P = 1623 ElseIf CR >= 9 And CR < 12 Then P = 1218 ElseIf CR >= 6 And CR < 9 Then P = 812 ElseIf CR < 6 Then P = 406 End If Case 1101 To 1200 If CR >= 12 Then P = 1590 ElseIf CR >= 9 And CR < 12 Then P = 1193 ElseIf CR >= 6 And CR < 9 Then P = 795 ElseIf CR < 6 Then P = 398 End If Case 1201 To 1300 If CR >= 12 Then P = 1557 ElseIf CR >= 9 And CR < 12 Then P = 1168 ElseIf CR >= 6 And CR < 9 Then P = 778 ElseIf CR < 6 Then P = 389 End If Case 1301 To 1400 If CR >= 12 Then P = 1523 ElseIf CR >= 9 And CR < 12 Then P = 1143 ElseIf CR >= 6 And CR < 9 Then P = 762 ElseIf CR < 6 Then P = 381 End If Case 1401 To 1500 If CR >= 12 Then P = 1490 ElseIf CR >= 9 And CR < 12 Then P = 1118 ElseIf CR >= 6 And CR < 9 Then P = 745 ElseIf CR < 6 Then P = 373 End If Case 1501 To 1600 If CR >= 12 Then P = 1457 ElseIf CR >= 9 And CR < 12 Then P = 1093 ElseIf CR >= 6 And CR < 9 Then P = 728 ElseIf CR < 6 Then P = 364 End If Case 1601 To 1700 If CR >= 12 Then P = 1423 ElseIf CR >= 9 And CR < 12 Then P = 1068 ElseIf CR >= 6 And CR < 9 Then P = 712 ElseIf CR < 6 Then P = 356 End If Case 1701 To 1800 If CR >= 12 Then P = 1390 ElseIf CR >= 9 And CR < 12 Then P = 1043 ElseIf CR >= 6 And CR < 9 Then P = 695 ElseIf CR < 6 Then P = 348 End If Case 1801 To 1900 If CR >= 12 Then P = 1357 ElseIf CR >= 9 And CR < 12 Then P = 1018 ElseIf CR >= 6 And CR < 9 Then P = 678 ElseIf CR < 6 Then P = 339 End If Case 1901 To 2000 If CR >= 12 Then P = 1323 ElseIf CR >= 9 And CR < 12 Then P = 993 ElseIf CR >= 6 And CR < 9 Then P = 662 ElseIf CR < 6 Then P = 331 End If Case 2001 To 2100 If CR >= 12 Then P = 1290 ElseIf CR >= 9 And CR < 12 Then P = 968 ElseIf CR >= 6 And CR < 9 Then P = 645 ElseIf CR < 6 Then P = 323 End If Case 2101 To 2200 If CR >= 12 Then P = 1257 ElseIf CR >= 9 And CR < 12 Then P = 943 ElseIf CR >= 6 And CR < 9 Then P = 628 ElseIf CR < 6 Then P = 314 End If Case 2201 To 2300 If CR >= 12 Then P = 1223 ElseIf CR >= 9 And CR < 12 Then P = 918 ElseIf CR >= 6 And CR < 9 Then P = 612 ElseIf CR < 6 Then P = 306 End If Case 2301 To 2400 If CR >= 12 Then P = 1190 ElseIf CR >= 9 And CR < 12 Then P = 893 ElseIf CR >= 6 And CR < 9 Then P = 595 ElseIf CR < 6 Then P = 298 End If Case 2401 To 2500 If CR >= 12 Then P = 1157 ElseIf CR >= 9 And CR < 12 Then P = 868 ElseIf CR >= 6 And CR < 9 Then P = 578 ElseIf CR < 6 Then P = 289 End If Case 2501 To 2600 If CR >= 12 Then P = 1123 ElseIf CR >= 9 And CR < 12 Then P = 843 ElseIf CR >= 6 And CR < 9 Then P = 562 ElseIf CR < 6 Then P = 281 End If Case 2601 To 2700 If CR >= 12 Then P = 1090 ElseIf CR >= 9 And CR < 12 Then P = 818 ElseIf CR >= 6 And CR < 9 Then P = 545 ElseIf CR < 6 Then P = 273 End If Case 2701 To 2800 If CR >= 12 Then P = 1057 ElseIf CR >= 9 And CR < 12 Then P = 793 ElseIf CR >= 6 And CR < 9 Then P = 528 ElseIf CR < 6 Then P = 264 End If Case 2801 To 2900 If CR >= 12 Then P = 1023 ElseIf CR >= 9 And CR < 12 Then P = 768 ElseIf CR >= 6 And CR < 9 Then P = 512 ElseIf CR < 6 Then P = 256 End If Case 2901 To 3000 If CR >= 12 Then P = 990 ElseIf CR >= 9 And CR < 12 Then P = 743 ElseIf CR >= 6 And CR < 9 Then P = 495 ElseIf CR < 6 Then P = 248 End If Case 3001 To 3100 If CR >= 12 Then P = 957 ElseIf CR >= 9 And CR < 12 Then P = 718 ElseIf CR >= 6 And CR < 9 Then P = 478 ElseIf CR < 6 Then P = 239 End If Case 3101 To 3200 If CR >= 12 Then P = 923 ElseIf CR >= 9 And CR < 12 Then P = 693 ElseIf CR >= 6 And CR < 9 Then P = 462 ElseIf CR < 6 Then P = 231 End If Case 3201 To 3300 If CR >= 12 Then P = 890 ElseIf CR >= 9 And CR < 12 Then P = 668 ElseIf CR >= 6 And CR < 9 Then P = 445 ElseIf CR < 6 Then P = 223 End If Case 3301 To 3400 If CR >= 12 Then P = 857 ElseIf CR >= 9 And CR < 12 Then P = 643 ElseIf CR >= 6 And CR < 9 Then P = 428 ElseIf CR < 6 Then P = 214 End If Case 3401 To 3500 If CR >= 12 Then P = 823 ElseIf CR >= 9 And CR < 12 Then P = 618 ElseIf CR >= 6 And CR < 9 Then P = 412 ElseIf CR < 6 Then P = 206 End If Case 3501 To 3600 If CR >= 12 Then P = 790 ElseIf CR >= 9 And CR < 12 Then P = 593 ElseIf CR >= 6 And CR < 9 Then P = 395 ElseIf CR < 6 Then P = 198 End If Case 3601 To 3700 If CR >= 12 Then P = 757 ElseIf CR >= 9 And CR < 12 Then P = 568 ElseIf CR >= 6 And CR < 9 Then P = 378 ElseIf CR < 6 Then P = 0 End If Case 3701 To 3800 If CR >= 12 Then P = 723 ElseIf CR >= 9 And CR < 12 Then P = 543 ElseIf CR >= 6 And CR < 9 Then P = 362 ElseIf CR < 6 Then P = 0 End If Case 3801 To 3900 If CR >= 12 Then P = 690 ElseIf CR >= 9 And CR < 12 Then P = 518 ElseIf CR >= 6 And CR < 9 Then P = 345 ElseIf CR < 6 Then P = 0 End If Case 3901 To 4000 If CR >= 12 Then P = 657 ElseIf CR >= 9 And CR < 12 Then P = 493 ElseIf CR >= 6 And CR < 9 Then P = 328 ElseIf CR < 6 Then P = 0 End If Case 4001 To 4100 If CR >= 12 Then P = 623 ElseIf CR >= 9 And CR < 12 Then P = 468 ElseIf CR >= 6 And CR < 9 Then P = 312 ElseIf CR < 6 Then P = 0 End If Case 4101 To 4200 If CR >= 12 Then P = 590 ElseIf CR >= 9 And CR < 12 Then P = 443 ElseIf CR >= 6 And CR < 9 Then P = 295 ElseIf CR < 6 Then P = 0 End If Case 4201 To 4300 If CR >= 12 Then P = 557 ElseIf CR >= 9 And CR < 12 Then P = 418 ElseIf CR >= 6 And CR < 9 Then P = 278 ElseIf CR < 6 Then P = 0 End If Case 4301 To 4400 If CR >= 12 Then P = 523 ElseIf CR >= 9 And CR < 12 Then P = 393 ElseIf CR >= 6 And CR < 9 Then P = 262 ElseIf CR < 6 Then P = 0 End If Case 4401 To 4500 If CR >= 12 Then P = 490 ElseIf CR >= 9 And CR < 12 Then P = 368 ElseIf CR >= 6 And CR < 9 Then P = 245 ElseIf CR < 6 Then P = 0 End If Case 4501 To 4600 If CR >= 12 Then P = 457 ElseIf CR >= 9 And CR < 12 Then P = 343 ElseIf CR >= 6 And CR < 9 Then P = 228 ElseIf CR < 6 Then P = 0 End If Case 4601 To 4700 If CR >= 12 Then P = 423 ElseIf CR >= 9 And CR < 12 Then P = 318 ElseIf CR >= 6 And CR < 9 Then P = 212 ElseIf CR < 6 Then P = 0 End If Case 4701 To 4800 If CR >= 12 Then P = 390 ElseIf CR >= 9 And CR < 12 Then P = 293 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 4801 To 4900 If CR >= 12 Then P = 357 ElseIf CR >= 9 And CR < 12 Then P = 268 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 4901 To 5000 If CR >= 12 Then P = 323 ElseIf CR >= 9 And CR < 12 Then P = 243 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 5001 To 5100 If CR >= 12 Then P = 290 ElseIf CR >= 9 And CR < 12 Then P = 218 ElseIf CR >= 6 And CR < 9 Then P = 0 ElseIf CR < 6 Then P = 0 End If Case 5101 To 5200 If CR >= 12 Then P = 257 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 5201 To 5300 If CR >= 12 Then P = 223 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 5301 To 5328 If CR >= 12 Then P = 202 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 5329 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 If CR = 0 Then P = 0 End If SA1718Pell = P End Function