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