Public Function Theme(TargetDate As Date) Dim T As String T = "" If TargetDate >= #1/2/2019# And TargetDate <= #2/3/2019# Then T = "19T1" ElseIf TargetDate >= #2/4/2019# And TargetDate <= #3/10/2019# Then T = "19T2" ElseIf TargetDate >= #3/11/2019# And TargetDate <= #4/14/2019# Then T = "19T3" ElseIf TargetDate >= #4/15/2019# And TargetDate <= #5/19/2019# Then T = "19T4" ElseIf TargetDate >= #5/20/2019# And TargetDate <= #6/23/2019# Then T = "19T5" ElseIf TargetDate >= #6/24/2019# And TargetDate <= #7/28/2019# Then T = "19T6" ElseIf TargetDate >= #7/29/2019# And TargetDate <= #9/1/2019# Then T = "19T7" ElseIf TargetDate >= #9/2/2019# And TargetDate <= #10/6/2019# Then T = "19T8" ElseIf TargetDate >= #10/7/2019# And TargetDate <= #11/10/2019# Then T = "19T9" ElseIf TargetDate >= #11/11/2019# And TargetDate <= #12/15/2019# Then T = "19T10" ElseIf TargetDate >= #1/6/2020# And TargetDate <= #2/9/2020# Then T = "20T1" ElseIf TargetDate >= #2/10/2020# And TargetDate <= #3/15/2020# Then T = "20T2" ElseIf TargetDate >= #3/16/2020# And TargetDate <= #4/19/2020# Then T = "20T3" ElseIf TargetDate >= #4/20/2020# And TargetDate <= #5/24/2020# Then T = "20T4" ElseIf TargetDate >= #5/25/2020# And TargetDate <= #6/28/2020# Then T = "20T5" ElseIf TargetDate >= #6/29/2020# And TargetDate <= #8/2/2020# Then T = "20T6" ElseIf TargetDate >= #8/3/2020# And TargetDate <= #9/6/2020# Then T = "20T7" ElseIf TargetDate >= #9/7/2020# And TargetDate <= #10/11/2020# Then T = "20T8" ElseIf TargetDate >= #10/12/2020# And TargetDate <= #11/15/2020# Then T = "20T9" ElseIf TargetDate >= #11/16/2020# And TargetDate <= #12/20/2020# Then T = "20T10" ElseIf TargetDate >= #1/4/2021# And TargetDate <= #2/7/2021# Then T = "21T1" ElseIf TargetDate >= #2/8/2021# And TargetDate <= #3/14/2021# Then T = "21T2" ElseIf TargetDate >= #3/15/2021# And TargetDate <= #4/18/2021# Then T = "21T3" ElseIf TargetDate >= #4/19/2021# And TargetDate <= #5/23/2021# Then T = "21T4" ElseIf TargetDate >= #5/24/2021# And TargetDate <= #6/27/2021# Then T = "21T5" ElseIf TargetDate >= #6/28/2021# And TargetDate <= #8/1/2021# Then T = "21T6" ElseIf TargetDate >= #8/2/2021# And TargetDate <= #9/5/2021# Then T = "21T7" ElseIf TargetDate >= #9/6/2021# And TargetDate <= #10/10/2021# Then T = "21T8" ElseIf TargetDate >= #10/11/2021# And TargetDate <= #11/14/2021# Then T = "21T9" ElseIf TargetDate >= #11/15/2021# And TargetDate <= #12/19/2021# Then T = "21T10" ElseIf TargetDate >= #1/3/2022# And TargetDate <= #2/6/2022# Then T = "22T1" ElseIf TargetDate >= #2/7/2022# And TargetDate <= #3/13/2022# Then T = "22T2" ElseIf TargetDate >= #3/14/2022# And TargetDate <= #4/17/2022# Then T = "22T3" ElseIf TargetDate >= #4/18/2022# And TargetDate <= #5/22/2022# Then T = "22T4" ElseIf TargetDate >= #5/23/2022# And TargetDate <= #6/26/2022# Then T = "22T5" ElseIf TargetDate >= #6/27/2022# And TargetDate <= #7/31/2022# Then T = "22T6" ElseIf TargetDate >= #8/1/2022# And TargetDate <= #9/4/2022# Then T = "22T7" ElseIf TargetDate >= #9/5/2022# And TargetDate <= #10/9/2022# Then T = "22T8" ElseIf TargetDate >= #10/10/2022# And TargetDate <= #11/13/2022# Then T = "22T9" ElseIf TargetDate >= #11/14/2021# And TargetDate <= #12/18/2022# Then T = "22T10" ElseIf TargetDate >= #1/2/2023# And TargetDate <= #2/5/2023# Then T = "23T1" ElseIf TargetDate >= #2/6/2023# And TargetDate <= #3/12/2023# Then T = "23T2" ElseIf TargetDate >= #3/13/2023# And TargetDate <= #4/16/2023# Then T = "23T3" ElseIf TargetDate >= #4/17/2023# And TargetDate <= #5/21/2023# Then T = "23T4" ElseIf TargetDate >= #5/22/2023# And TargetDate <= #6/25/2023# Then T = "23T5" ElseIf TargetDate >= #6/26/2023# And TargetDate <= #7/30/2023# Then T = "23T6" Else T = "" End If Theme = T End Function