Функция для возврата коэффициента через разницу в месяцах

[listing]

Добрый всем день, подскажите пожалуйста, каким решить следующую задачу, в VBA я полный ноль, вернее на уровне написания кнопки hello
Задача:
Есть 12 значений(месяцев) например 2013 года и соответствующие им коэффициенты, скажем 0,1;0,21;0,35;0,42 и так далее
Есть даты открытия магазинов например с августа 2012 года, то есть август 2012, сентябрь 2012, октябрь 2012 и так далее..
Необходимо посчитать разницу между значением 2013 и месяцем открытия магазина для определения коэффициента
Скажем магазин открывается в августе 2012 года, необходимо посчитать данные с использованием соответствующего коэффициента, например для января 2013 это будет 5-й коэффициент так как прошло 5 месяцев с августа по январь.
Или же магазин открывается в декабре а данные нужно посчитать за октябрь, то есть используется то есть используется 10-й коэффициент
И вынести меняющееся вводимое значение, то есть вводишь в ячейку январь и меняются данные в соответствии с разницей между январем и месяцем открытия магазина, с подстановкой соответствующего коэффициента.
Всем, спасибо заранее за советы, помощь, возможно код
p.s. скажем меняющееся вводимое значение месяца это выпадающий список, то есть в ячейке выбирается значение из выпадающего списка, а дальше соответственно идет расчет разницы между открытием и нужным месяцем для расчета и выбор соответствующего коэффициента
придумал сложный и муторный способ с большим захламлением, в отдельной ячейке идет сравнение с ячейкой выпадающего списка, то есть если январь, то ячейка с месяцем открытия магазина - данная, делим на -30, получаем количество месяцев от открытия до января, и этому количеству соответствует определённый коэффициент

[doober]

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

Скажем магазин открывается в августе 2012 года, необходимо посчитать данные с использованием соответствующего коэффициента, например для января 2013 это будет 6-й коэффициент так как прошло 6 месяцев с августа по январь.

Странно ,что шесть,а не 5.
Функция DateDiff вам поможет

Delta = DateDiff("m", CDate("1.08.2012"), CDate("1.01.2013"), vbMonday)

MsgBox Delta

[listing]

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

Странно ,что шесть,а не 5.
Функция DateDiff вам поможет

Delta = DateDiff("m", CDate("1.08.2012"), CDate("1.01.2013"), vbMonday)

MsgBox Delta

Ошибся, спасибо, исправил, а нельзя ли инструкцию поподробнее пожалуйста, выяснилось, что уровень макросов у меня нулевой...

[doober]

Для начала

[ikki_pf]

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

уровень макросов у меня нулевой...

функция листа: РАЗНДАТ