Надо найти функцию, По вводимой в ячейку дате рождения показать название соответствующего знака Зодиака.

[Incognitoal]

Знаки зодиака. Известно, что астрологи делят год на двенадцать периодов и каждому из них ставят в соответствие один из знаков Зодиака:

20.1 – 18.2 - Водолей
19.2 – 20.3 - Рыбы
21.3 – 19.4 - Овен
20.4 – 20.5 - Телец
21.5 – 21.6 - Близнецы
22.6 – 22.7 - Рак
23.7 – 22.8 - Лев
23.8 – 22.9 - Дева
23.9 – 22.10 - Весы
23.10 – 22.11 - Скорпион
23.11 – 21.12 - Стрелец
22.12 – 19.1 - Козерог

По вводимой в ячейку дате рождения показать название соответствующего знака Зодиака.

[EducatedFool]

Попробуйте вариант с применением пользовательской функции:

Function ЗнакЗодиака(ByVal d As Variant) As String
    If Not IsDate(d) Then Exit Function
    dd = DateSerial(Year(Now), Month(d), Day(d))
    Select Case dd
        Case Is >= DateValue("22.12" & "." & Year(Now)): ЗнакЗодиака = "Козерог"
        Case Is >= DateValue("23.11" & "." & Year(Now)): ЗнакЗодиака = "Стрелец"
        Case Is >= DateValue("23.10" & "." & Year(Now)): ЗнакЗодиака = "Скорпион"
        Case Is >= DateValue("23.9" & "." & Year(Now)): ЗнакЗодиака = "Весы"
        Case Is >= DateValue("23.8" & "." & Year(Now)): ЗнакЗодиака = "Дева"
        Case Is >= DateValue("23.7" & "." & Year(Now)): ЗнакЗодиака = "Лев"
        Case Is >= DateValue("22.6" & "." & Year(Now)): ЗнакЗодиака = "Рак"
        Case Is >= DateValue("21.5" & "." & Year(Now)): ЗнакЗодиака = "Близнецы"
        Case Is >= DateValue("20.4" & "." & Year(Now)): ЗнакЗодиака = "Телец"
        Case Is >= DateValue("21.3" & "." & Year(Now)): ЗнакЗодиака = "Овен"
        Case Is >= DateValue("19.2" & "." & Year(Now)): ЗнакЗодиака = "Рыбы"
        Case Is >= DateValue("20.1" & "." & Year(Now)): ЗнакЗодиака = "Водолей"
        Case Else: ЗнакЗодиака = "Козерог"
    End Select
End Function

Посмотрите формулы в зелёных ячейках:

[Incognitoal]

Я не сказал, мне эта функция нужна не в байсике, а в самом екселе надо, через какую-то функцию...

[ZORRO2005]

=Если(A1<>"";ВПР(ДАТА(2009;МЕСЯЦ(A1);ДЕНЬ(A1));{0;"Козерог":39833;"Водолей":39863;"Рыба":39893;"Овен":39923;"Телец":39954;"Близнецы":39986;"Рак":40017;"Лев":40048;"Дева":40079;"Весы":40109;"Скорпион":40140;"Стрелец":40169;"Козерог"};2;1);"")

В A1 дата рождения

[Incognitoal]

Эмс...честно я не понял как тут и что 0-о
Мне надо забить эти 12 месяцев НЕ В 1 ячейке а в каждой ячейке свой знак, и когда я начинал писать дату, то мне показывалось название этой даты... вот что мне надо

Зорро, если ты можешь объясни, как и что тут...

[ZORRO2005]

Incognitoal См.вложение

EducatedFool честно не подглядывал про Now

[Incognitoal]

уу...если ты не скинул и не мозг моей девушки не понял...
теперь одна проблема, надо понять как ты всё это сделал ))) а то что я буду рассказывать... ты можешь объяснить, если тебе не сложно

[ZORRO2005]

через 20 мин.

[Incognitoal]

и можешь объяснить как эти цифры получились, где знаки зодиака?

[valerij]

Сообщение от Incognitoal

уу надо понять как ты всё это сделал ))) а то что я буду рассказывать... ты можешь объяснить, если тебе не сложно

Да в инете полно, с картинками, любыми и объяснять, девушки, не надо!!!