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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы