Определение знака зодиака по дате рождения - VB
Формулировка задачи:
Ребята помоги плизз....
Определение знака зодиака по дате рождения на VBA....плиззз помогите...
Решение задачи: «Определение знака зодиака по дате рождения»
textual
Листинг программы
ZodiaksDate = Array(22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22) 'даты начала каждого зодиака (12 штук) ZodiaksTxt = Array("Козерог", "Козенос", "", "", "", "", "", "", "", "", "", "", "Козерог") '13 штук (первый=последний)! myDate = "08.09.1985" myDate = CDate(myDate) myMonth = Month(myDate) myDay = Day(myDate) If myDay < ZodiaksDate(myMonth - 1) Then MsgBox ZodiaksTxt(myMonth - 1) Else MsgBox ZodiaksTxt(myMonth) End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д