Определение знака зодиака по дате рождения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
