Public Function BookListCost(CourseID, ExpStartDate, PTermStart) As Double B = 0 If CourseID = "BA420" Then If PTermStart < #6/29/2020# Then B = 20 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 14 ElseIf PTermStart >= #4/19/2021# And PTermStart < #11/14/2022# Then B = 26 ElseIf PTermStart >= #11/14/2022# Then B = 0 End If ElseIf CourseID = "BA430" Then If PTermStart < #6/29/2020# Then B = 70 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 64 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 36 ElseIf PTermStart >= #9/4/2023# Then B = 63 End If ElseIf CourseID = "GE112" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 0 ElseIf PTermStart >= #4/19/2021# Then B = 44 End If ElseIf CourseID = "GE200" Then B = 54 ElseIf CourseID = "GE218" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 64 ElseIf PTermStart >= #4/19/2021# And PTermStart < #11/14/2022# Then B = 53 ElseIf PTermStart >= #11/14/2022# Then B = 0 End If ElseIf CourseID = "GE239" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 26 ElseIf PTermStart >= #4/19/2021# Then B = 0 End If ElseIf CourseID = "GE245" Then B = 49 ElseIf CourseID = "GE249" Then If PTermStart < #6/29/2020# Then B = 50 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 43 ElseIf PTermStart >= #4/19/2021# Then B = 43 End If ElseIf CourseID = "GE315" Then B = 33 ElseIf CourseID = "GE326" Then If PTermStart < #6/29/2020# Then B = 20 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 25 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 25 ElseIf PTermStart >= #9/4/2023# Then B = 28 End If ElseIf CourseID = "GE327" Then B = 121 ElseIf CourseID = "GE420" Then If PTermStart < #6/29/2020# Then B = 15 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 16 ElseIf PTermStart >= #4/19/2021# Then B = 16 End If ElseIf CourseID = "GE426" Then B = 55 ElseIf CourseID = "GE435" Then If PTermStart < #6/29/2020# Then B = 10 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 15 ElseIf PTermStart >= #4/19/2021# And PTermSart < #9/4/2023# Then B = 13 ElseIf PTermStart >= #9/4/2023# Then B = 20 End If ElseIf CourseID = "GE440" Then If PTermStart < #6/29/2020# Then B = 20 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 33 ElseIf PTermStart >= #4/19/2021# Then B = 33 End If ElseIf CourseID = "HM331" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 29 ElseIf PTermStart >= #4/19/2021# Then B = 42 End If ElseIf CourseID = "HM340" Then If PTermStart < #1/6/2020# Then B = 30 ElseIf PTermStart >= #1/6/2020# And PTermStart < #6/29/2020# Then B = 118 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 113 ElseIf PTermStart >= #4/19/2021# And PTermSart < #11/14/2022# Then B = 83 ElseIf PTermStart >= #11/14/2022# And PTermStart < #1/2/2023# Then B = 99 ElseIf PTermStart >= #1/2/2023# Then B = 124 End If ElseIf CourseID = "HM350" Then If PTermStart < #1/6/2020# Then B = 40 ElseIf PTermStart >= #1/6/2020# And PTermStart < #6/29/2020# Then B = 211 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 33 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 33 ElseIf PTermStart >= #9/4/2023# Then B = 49 End If ElseIf CourseID = "HM430" Then If PTermStart < #6/29/2020# Then B = 60 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 62 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 61 ElseIf PTermStart >= #9/4/2023# Then B = 67 End If ElseIf CourseID = "HT110" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 39 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 33 ElseIf PTermStart >= #9/4/2023# Then B = 49 End If ElseIf CourseID = "HT121" Then If PTermStart < #6/29/2020# Then B = 40 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 52 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 27 ElseIf PTermStart >= #9/4/2023# Then B = 54 End If ElseIf CourseID = "HT130" Then If PTermStart < #1/6/2020# Then B = 30 ElseIf PTermStart >= #1/6/2020# And PTermStart < #6/29/2020# Then B = 118 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 26 ElseIf PTermStart >= #4/19/2021# And PTermStart < #11/14/2022# Then B = 26 ElseIf PTermStart >= #11/14/2022# And PTermStart < #1/2/2023# Then B = 99 ElseIf PTermStart >= #1/2/2023# Then B = 124 End If ElseIf CourseID = "HT131" Then If PTermStart < #6/29/2020# Then B = 30 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 32 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 49 ElseIf PTermStart >= #9/4/2023# Then B = 54 End If ElseIf CourseID = "HT210" Then If PTermStart < #6/29/2020# Then B = 40 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 39 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 49 ElseIf PTermStart >= #9/4/2023# Then B = 54 End If ElseIf CourseID = "HT220" Then If PTermStart < #6/29/2020# Then B = 20 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 0 ElseIf PTermStart >= #4/19/2021# Then B = 0 End If ElseIf CourseID = "HT230" Then If PTermStart < #6/29/2020# Then B = 50 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 61 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 63 ElseIf PTermStart >= #9/4/2023# Then B = 72 End If ElseIf CourseID = "HT240" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 36 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 60 ElseIf PTermStart >= #9/4/2023# Then B = 63 End If ElseIf CourseID = "HT251" Then If PTermStart < #6/29/2020# Then B = 60 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 33 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 27 ElseIf PTermStart >= #9/4/2023# Then B = 49 End If ElseIf CourseID = "HT260" Then If PTermStart < #6/29/2020# Then B = 0 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 15 ElseIf PTermStart >= #4/19/2022# And PTermStart < #11/14/2022# Then B = 15 ElseIf PTermStart >= #11/14/2022# Then B = 0 End If ElseIf CourseID = "PA120" Then If PTermStart < #6/29/2020# Then B = 250 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 194 ElseIf PTermStart >= #4/19/2021# And PTermStart < #6/28/2021# Then B = 258 ElseIf PTermStart >= #6/28/2021# Then B = 220 End If ElseIf CourseID = "PA125" Then If PTermStart < #6/29/2020# Then B = 180 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 231 ElseIf PTermStart >= #4/19/2021# Then B = 231 End If ElseIf CourseID = "PA130" Then If PTermStart < #6/29/2020# Then B = 210 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 220 ElseIf PTermStart >= #4/19/2021# Then B = 231 End If ElseIf CourseID = "PA140" Then If PTermStart < #6/29/2020# Then B = 180 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 212 ElseIf PTermStart >= #4/19/2021# Then B = 216 End If ElseIf CourseID = "PA145" Then If PTermStart < #6/29/2020# Then B = 210 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 231 ElseIf PTermStart >= #4/19/2021# Then B = 231 End If ElseIf CourseID = "PA220" Then If PTermStart < #6/29/2020# Then B = 190 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 159 ElseIf PTermStart >= #4/19/2021# Then B = 158 End If ElseIf CourseID = "PA225" Then If PTermStart < #6/29/2020# Then B = 150 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 211 ElseIf PTermStart >= #4/19/2021# Then B = 219 End If ElseIf CourseID = "PA230" Then If PTermStart < #6/29/2020# Then B = 170 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 196 ElseIf PTermStart >= #4/19/2021# Then B = 203 End If ElseIf CourseID = "PA240" Then If PTermStart < #6/29/2020# Then B = 290 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 259 ElseIf PTermStart >= #4/19/2021# Then B = 323 End If ElseIf CourseID = "PA245" Then If PTermStart < #6/29/2020# Then B = 170 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 231 ElseIf PTermStart >= #4/19/2021# Then B = 231 End If 'Note: PA250 has been replaced by PA255 since 1/1/2019. ElseIf CourseID = "PA250" Then If PTermStart < #6/29/2020# Then B = 150 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 0 ElseIf PTermStart >= #4/19/2021# Then B = 0 End If ElseIf CourseID = "PA255" Then If PTermStart < #6/29/2020# Then B = 160 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 113 ElseIf PTermStart >= #4/19/2021# Then B = 189 End If ElseIf CourseID = "PL120" Then If PTermStart < #5/22/2023# Then B = 220 ElseIf PTermStart >= #5/22/2023# Then B = 203 End If ElseIf CourseID = "PL130" Then If PTermStart < #5/22/2023# Then B = 231 ElseIf PTermStart >= #5/22/2023# Then B = 186 End If ElseIf CourseID = "PL135" Then If PTermStart < #9/4/2023# Then B = 158 ElseIf PTermStart >= #9/4/2023# Then B = 169 End If ElseIf CourseID = "PL140" Then If PTermStart < #5/22/2023# Then B = 216 ElseIf PTermStart >= #5/22/2023# Then B = 182 End If ElseIf CourseID = "PL145" Then If PTermStart < #5/22/2023# Then B = 231 ElseIf PTermStart >= #5/22/2023# Then B = 191 End If ElseIf CourseID = "PL215" Then B = 231 ElseIf CourseID = "PL225" Then B = 219 ElseIf CourseID = "PL230" Then B = 203 ElseIf CourseID = "PL235" Then B = 232 ElseIf CourseID = "PL245" Then B = 231 ElseIf CourseID = "PL255" Then B = 189 ElseIf CourseID = "PT110" Then If PTermStart < #6/27/2021# Then B = 0 ElseIf PTermStart >= #6/27/2022# And ExpStartDate >= #6/27/2022# Then B = 37 Else B = 0 End If ElseIf CourseID = "SR231" Then If PTermStart < #6/29/2020# Then B = 55 ElseIf PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 0 ElseIf PTermStart >= #4/19/2021# Then B = 0 End If ElseIf CourseID = "MBA510" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 56 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 99 ElseIf PTermStart >= #9/4/2023# Then B = 49 End If ElseIf CourseID = "MBA515" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 53 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 63 ElseIf PTermStart >= #9/4/2023# Then B = 72 End If ElseIf CourseID = "MBA520" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 41 ElseIf PTermStart >= #4/19/2021# Then B = 55 End If ElseIf CourseID = "MBA525" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 54 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 54 ElseIf PTermStart >= #9/4/2023# Then B = 60 End If ElseIf CourseID = "MBA530" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 32 ElseIf PTermStart >= #4/19/2021# Then B = 29 End If ElseIf CourseID = "MBA535" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 93 ElseIf PTermStart >= #4/19/2021# Then B = 157 End If ElseIf CourseID = "MBA540" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 17 ElseIf PTermStart >= #4/19/2021# Then B = 20 End If ElseIf CourseID = "MBA600" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 61 ElseIf PTermStart >= #4/19/2021# And PTermStart < #9/4/2023# Then B = 55 ElseIf PTermStart >= #9/4/2023# Then B = 61 End If ElseIf CourseID = "MBA605" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 65 ElseIf PTermStart >= #4/19/2021# And PTermStart < #5/22/2023# Then B = 86 ElseIf PTermStart >= #5/22/2023# Then B = 31 End If ElseIf CourseID = "MBA610" Then If PTermStart >= #6/29/2020# And PTermStart < #4/19/2021# Then B = 35 ElseIf PTermStart >= #4/19/2021# And PTermStat < #9/4/2023# Then B = 55 ElseIf PTermStart >= #9/4/2023# Then B = 61 End If ElseIf CourseID = "AOJ100" Then B = 106 ElseIf CourseID = "AOJ110" Then B = 89 ElseIf CourseID = "AOJ120" Then B = 102 ElseIf CourseID = "AOJ130" Then B = 115 ElseIf CourseID = "AOJ140" Then B = 77 ElseIf CourseID = "AOJ150" Then B = 58 ElseIf CourseID = "AOJ160" Then B = 85 ElseIf CourseID = "AOJ170" Then B = 86 ElseIf CourseID = "AOJ180" Then B = 137 ElseIf CourseID = "AOJ190" Then B = 137 ElseIf CourseID = "AOJ250" Then B = 137 ElseIf CourseID = "AOJ260" Then B = 209 ElseIf CourseID = "AOJ270" Then B = 61 ElseIf CourseID = "AOJ280" Then B = 52 ElseIf CourseID = "AOJ290" Then B = 117 ElseIf CourseID = "AOJ320" Then B = 66 ElseIf CourseID = "AOJ340" Then B = 95 ElseIf CourseID = "AOJ360" Then B = 66 ElseIf CourseID = "AOJ380" Then B = 79 ElseIf CourseID = "AOJ400" Then B = 49 ElseIf CourseID = "AOJ420" Then B = 77 ElseIf CourseID = "AOJ440" Then B = 63 ElseIf CourseID = "AOJ460" Then B = 82 ElseIf CourseID = "AOJ470" Then B = 103 ElseIf CourseID = "AOJ480" Then B = 49 ElseIf CourseID = "AOJ490" Then B = 49 ElseIf CourseID = "MBC101" Then If ExpStartDate < #9/4/2023# Then B = 43 ElseIf ExpStartDate >= #9/4/2023# Then B = 54 End If ElseIf CourseID = "MBC102" Then B = 395 ElseIf CourseID = "MBC105" Then If ExpStartDate < #9/4/2023# Then B = 167 ElseIf ExpStartDate >= #9/4/2023# Then B = 75 End If End If BookListCost = B End Function