По введенной дате рождения определить знак задиака - VBA

Формулировка задачи:

По введенной дате рождения определить знак задиака. Овен 21.03 — 20.04 Телец 21.04 — 20.05 Близнецы 21.05 — 21.06 Рак 22.06 — 22. 07 Лев 23.07 — 23.08 Дева 24.08 — 23.09 Весы 24.09 — 23.10 Скорпион 24.10 — 22.11 Стрелец 23.11 — 21.12 Козерог 22.12 — 20.01 Водолей 21.01 — 19.02 Рыбы 20.02— 20 .03

Решение задачи: «По введенной дате рождения определить знак задиака»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Sub Зодиак()
   Dim d As Date
   
   d = InputBox("Дату!")
   MsgBox Z(d)
End Sub
 
'****************************
Function Z(t As Date)
   Dim m As Byte, d As Byte
 
   m = Month(t): d = Day(t)
 
   Select Case m
      Case 1: If d <= 20 Then Z = "Козерог" Else Z = "Водолей"
      Case 2: If d <= 19 Then Z = "Водолей" Else Z = "Рыбы"
      Case 3: If d <= 20 Then Z = "Рыбы" Else Z = "Овен"
      Case 4: If d <= 20 Then Z = "Овен" Else Z = "Телец"
      Case 5: If d <= 20 Then Z = "Телец" Else Z = "Близнецы"
      Case 6: If d <= 21 Then Z = "Близнецы" Else Z = "Рак"
      Case 7: If d <= 22 Then Z = "Рак" Else Z = "Лев"
      Case 8: If d <= 23 Then Z = "Лев" Else Z = "Дева"
      Case 9: If d <= 23 Then Z = "Дева" Else Z = "Весы"
      Case 10: If d <= 23 Then Z = "Весы" Else Z = "Скорпион"
      Case 11: If d <= 22 Then Z = "Скорпион" Else Z = "Стрелец"
      Case 12: If d <= 21 Then Z = "Стрелец" Else Z = "Козерог"
   End Select
End Function
                        