Гороскоп. По дате рождения определить знак зодиака, и в каком году родился пользователь - VBA

Узнай цену своей работы

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

Привет всем в вба я новичок , и нужно сделать процедуру гороскоп которая спрашивала бы у пользователя дату рождения (день, месяц, год) и по дате определяла бы знак зодиака и в каком году родился пользователь (год дракона, кота и тд) через какие процедуры надо сделать ?

Решение задачи: «Гороскоп. По дате рождения определить знак зодиака, и в каком году родился пользователь»

textual
Листинг программы
Function Z(t) 'Созвездие для даты t текущего года
    Select Case True
            Case t <= #1/20/2014#: Z = "Козерог"
'…
            Case t <= #12/31/2014#: Z = "Козерог"
            Case Else: Z = "‹созвездие не определено›"
    End Select
End Function

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

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