Определение знака зодиака по дате рождения - VB

Формулировка задачи:

Ребята помоги плизз....Добавлено через 26 секунд Определение знака зодиака по дате рождения на VBA....плиззз помогите...

Код к задаче: «Определение знака зодиака по дате рождения - VB»

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

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ