Определение знака зодиака по дате рождения - 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