нужно доработать программу - VBA

[Александр121]

можете исравить ошибки в коде.

Private Sub calc_Click()
Dim DR As Date
DR = (txtData.Text)
Select Case Month(DR)
Case 1
If Day(DR) <= 6 Then txtZodiak.Text = "Доброе утро"
Case Else
If Day(DR) <= 18 Then txtZodiak.Text = "Добрый День" Else txtZodiak.Text = "Доброй ночи"
End Select
 
End Sub

По введенному пользователем времени (часы : минуты) напечатать приветствие в зави-

симости от времени суток: «Доброй ночи» с 0 до 6 часов, «Доброе утро» с 6 до 12 часов,

10«Добрый день» с 12 до 18 часов, «Добрый вечер» с 18 до 24 часов (в VBA и Excel время дня выражается дробным числом от 0 до 1, например, полдень представлен как 0,5, соответственно 18 часов как 0,75).

[Александр121]

Нужно использывать Select Case