Нужна помощь составить формулу или ВБА для дат

[KOSTIK1]

Доброго всем дня!
Помогите написать формулу, а то что-то у меня не получается!
В ячейках А1 и В1 стоят начальная и конечная даты, в С2 стоит тоже дата - нужно определить Если дата в С2 находится в промежутке дат А1 и В1, то Е2 значение "1", Если раньше чем А1 то "Раньше" и Если позже чем В1 то "Позже".
И если возможно такое в ВБА помогите с кодом, пожалуйста.
ВБА реагирует на изменение в ячейке С2 и подставляет значение в Е2 и действует в диапазоне С2:С45 и Е2:Е45 соответственно. Спасибо заранее за варианты.

[Serge_Bliznykov]

так Вы уж определитесь, Вам нужна формула (достаточно простая - см.ниже) или код на VBA...

вот формула:

=ЕСЛИ(И(C1>=A1;C1<=B1);"1";ЕСЛИ(C1<A1;"раньше";ЕСЛИ(C1>B1;"позже";"")))

[Teslenko_EA]

Здравствуйте KOSTIK1.
Если Вы определились и будете решать задачу с применением VBA,
лучше это делать используя пользовательскую функцию, она "реагирует на изменение в ячейке С2"
Разместив в модуле подобный код:

Public Function checkDate(vD1, vD2, vD3)
Select Case vD3
Case Is < vD1: checkDate = "Раньше"
Case Is > vD2: checkDate = "Позже"
Case Else: checkDate = 1
End Select
End Function

формула в ячейке E2 будет выглядеть так:
=checkDate(A1;B1;C2)
соответственно "протянув" её по диапазону Е2:Е45, она будет действовать в диапазоне С2:С45
Евгений.

[KOSTIK1]

Большое спасибо за предложенные варианты! Оба работают прекрасно (подправил =checkDate($A$1;$B$1;C2)) если выбираю дату вручную, но если дату меняет макрос, тогда не реагирует ни формула ни пользовательская функция.
По ходу вопрос - подскажите пользовательскую функцию заменяющую формулу ДАТАМЕС. Спасибо.

[KOSTIK1]

Вот файл посмотрите!

[KOSTIK1]

Теперь с формулами.
Где нужно подправить код - Подскажите пожалуйста. Спасибо

[Teslenko_EA]

Здравствуйте KOSTIK1.
скорее всего Вам поможет подобная корректировка процедуры обработки двойного клика календаря:

Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
    ActiveCell.NumberFormat = sfDate(iNm)
    ActiveCell = MonthView1.Value
    End
End Sub

используемый Вами календарь, я делал для возможности отображения текстового значения даты разных форматов.
Евгений.

[KOSTIK1]

Евгений вы просто ГЕНИЙ! Спасибо Вам большое от души! Теперь всё "У ПОЛНОМ ПОРЯДКЕ". :-)

Костик