Помогите с решением задачи на VBA

[nastyavvolf]

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

[nastyavvolf]

забыла файл вложить... вот

[pivas]

Есть готовая функция "ДНЕЙ360" в разделе "Дата и время". Вычисляет кол-во дней между датами.

[nastyavvolf]

про готовые функции знаю, но необходимо это выполнить именно на VBA...

[EducatedFool]

про готовые функции знаю, но необходимо это выполнить именно на VBA...

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

[nastyavvolf]

к примеру эта:
=ЕСЛИ(ИЛИ(("1."&C$4&"."&(ГОД($A5)+Е СЛИ(МЕСЯЦ($A5)>МЕСЯЦ("1."&C$4&ГОД($ A5));1;0)))*1>$B5*1;(("1."&МЕСЯЦ("1 ."&C$4&ГОД($A5))+ЕСЛИ(МЕСЯЦ("1."&C$ 4&ГОД($A5))=12;-11;1)&"."&(ГОД($A5)+ЕСЛИ(ИЛИ(МЕСЯЦ( $A5)>МЕСЯЦ("1."&C$4&ГОД($A5));МЕСЯЦ ("1."&C$4&"1")=12);1;0)))-1)*1<$A5*1);0;ЕСЛИ($B5*1<(("1."&МЕС ЯЦ("1."&C$4&ГОД($A5))+ЕСЛИ(МЕСЯЦ("1 ."&C$4&ГОД($A5))=12;-11;1)&"."&(ГОД($A5)+ЕСЛИ(ИЛИ(МЕСЯЦ( $A5)>МЕСЯЦ("1."&C$4&ГОД($A5));МЕСЯЦ ("1."&C$4&"1")=12);1;0)))-1)*1;$B5+1;(("1."&МЕСЯЦ("1."&C$4&ГО Д($A5))+ЕСЛИ(МЕСЯЦ("1."&C$4&ГОД($A5 ))=12;-11;1)&"."&(ГОД($A5)+ЕСЛИ(ИЛИ(МЕСЯЦ( $A5)>МЕСЯЦ("1."&C$4&ГОД($A5));МЕСЯЦ ("1."&C$4&"1")=12);1;0)))-1)+1)-ЕСЛИ($A5*1>("1."&C$4&"."&(ГОД($A5)+ ЕСЛИ(МЕСЯЦ($A5)>МЕСЯЦ("1."&C$4&ГОД( $A5));1;0)))*1;$A5;("1."&C$4&"."&(Г ОД($A5)+ЕСЛИ(МЕСЯЦ($A5)>МЕСЯЦ("1."& C$4&ГОД($A5));1;0)))))

©Шпец Докапыч

[EducatedFool]

©Шпец Докапыч

Вот только он и сможет перевести эту формулу на VBA

Придумайте формулу попроще, пожалуйста.
Ну или подождите немного, пока её придумает кто-нибудь другой...

[nastyavvolf]

хм, ну тогда вот, тот же алгоритм только передаланный мной =)
=ЕСЛИ(ИЛИ(КОНМЕСЯЦА("1."&МЕСЯЦ("1." &C$4&"."&ГОД($A5))&"."&ГОД($A5)+ЕСЛ И(МЕСЯЦ("1."&C$4&"."&ГОД($A5))>9;0; 1);-1)+1>$B5*1;КОНМЕСЯЦА("1."&МЕСЯЦ("1. "&C$4&"."&ГОД($A5))&"."&ГОД($A5)+ЕС ЛИ(МЕСЯЦ("1."&C$4&"."&ГОД($A5))>9;0 ;1);0)<$A5*1);0;ЕСЛИ($B5*1<КОНМЕСЯЦ А("1."&МЕСЯЦ("1."&C$4&"."&ГОД($A5)) &"."&ГОД($A5)+ЕСЛИ(МЕСЯЦ("1."&C$4&" ."&ГОД($A5))>9;0;1);0);$B5+1;КОНМЕС ЯЦА("1."&МЕСЯЦ("1."&C$4&"."&ГОД($A5 ))&"."&ГОД($A5)+ЕСЛИ(МЕСЯЦ("1."&C$4 &"."&ГОД($A5))>9;0;1);0)+1)-ЕСЛИ($A5*1>КОНМЕСЯЦА("1."&МЕСЯЦ("1. "&C$4&"."&ГОД($A5))&"."&ГОД($A5)+ЕС ЛИ(МЕСЯЦ("1."&C$4&"."&ГОД($A5))>9;0 ;1);-1)+1;$A5;КОНМЕСЯЦА("1."&МЕСЯЦ("1."& C$4&"."&ГОД($A5))&"."&ГОД($A5)+ЕСЛИ (МЕСЯЦ("1."&C$4&"."&ГОД($A5))>9;0;1 );-1)+1))

[nastyavvolf]

алгоритм простой, только как это в VBA отразить я не знаю

[IgorGO]

я чуть изменил исходные данные (строку с названиями месяцев, там теперь стоит дата - первый день соответствующего месяца), кстати вопрос к автору, из чего явствует, что написанный в колонке "С" октябрь относится к 2005 году, а не допустим к 2020? а январь уже к 2006? вопрос риторический, можно не отвечать.

Алгоритм приведенной ниже формулы довольно прост: выбираем минимальное значение из двух: конец данного месяца и конец рассматриваемого периода, назовем его МИ, выбираем максимальное значение из двух: начало месяца и начало периода, назовем его МА. Если МИ меньше МА, общих дней нет, иначе в этот месяц попало МИ-МА+1 дней из рассматриваемого периода.

=ЕСЛИ(МИН(КОНМЕСЯЦА(R4C;0);RC2)<МАКС(R4C;RC1);;МИН(КОНМЕСЯЦА(R4C;0);RC2)-МАКС(R4C;RC1)+1)