Нужно доработать программу - VBA
Формулировка задачи:
можете исравить ошибки в коде.задание в скриншоте.
По введенному пользователем времени (часы : минуты) напечатать приветствие в зави-
симости от времени суток: «Доброй ночи» с 0 до 6 часов, «Доброе утро» с 6 до 12 часов,
10«Добрый день» с 12 до 18 часов, «Добрый вечер» с 18 до 24 часов (в VBA и Excel время дня выражается дробным числом от 0 до 1, например, полдень представлен как 0,5, соответственно 18 часов как 0,75).
Решение задачи: «Нужно доработать программу»
textual
Листинг программы
Private Sub calc_Click() Dim DR As Date DR = (txtData.Text) Select Case Hour(DR) Case Is < 5: txtZodiak.Text = "Доброй ночи" Case Is < 11: txtZodiak.Text = "Добрые утро" Case Is < 18: txtZodiak.Text = "Добрый день" Case Is < 23: txtZodiak.Text = "Добрый вечер" Case Else txtZodiak.Text = "Доброй ночи " End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д