Помогите с решением задачи на VBA - Microsoft Office Excel - Страница 2

nastyavvolf · 10.07.2009, 21:11

IgorGO
спасибо.
хм, незнаю можно ли было менять исходные данные, но по-идее суть от этого мало меняется, а код упрощается...
а на VBA как это сделать?

IgorGO · 11.07.2009, 01:10

Нижняя таблица (см.вложение) рассчитана с помощью написанной на ВБА функции КвоДней, которой передается 3 параметра (три даты):
1.начало периода
2.конец периода
3.любая дата
функция возвращает на сколько дней пересекаются переод заданный двумя первыми датами с периодом от любой даты до конца месяца для этой даты. Начало периода должно быть меньше равно концу периода. Любая дата - она и в Африке любая дата.
Параметры ни как не проверяются.

nastyavvolf · 11.07.2009, 01:38

IgorGO
Огромнейшее Вам спасибо, респект и уважуха =)
осталось только разобрать код по слогам...

pivas · 11.07.2009, 01:46

Вариант с использованием VBA:
IgorGO, Ваш расчёт возможно нужно подправить, т.к. в нём разница между 31.10 и 30.10 составляет 2 дня вместо одного.

nastyavvolf · 11.07.2009, 01:55

pivas
у Вас не хватает по 1 дню в каждом месяце =(

pivas · 11.07.2009, 01:56

Это смотря как считать

nastyavvolf · 11.07.2009, 02:03

ну в декабре и январе то точно 31 день...
а с благодаря Вашей наблюдательности вижу, что в моей формуле действительно м/у 30,10 и 31,10 2 дня =(((

pivas · 11.07.2009, 02:13

Функция ДНЕЙ360 работает из расёта 360 дней в году 30 дней в месяце, т.е. серьёзно усредняет. А в моём варианте возможно пропадают дни при переходе месяца. Надо подумать. Если так, то к сумме дней надо прибавить кол-во переходов месяца.

nastyavvolf · 11.07.2009, 02:25

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

pivas · 11.07.2009, 02:34

Для этого есть календарь

))

10.07.2009, 21:11	#11
nastyavvolf Пользователь Регистрация: 10.07.2009 Сообщений: 13	IgorGO спасибо. хм, незнаю можно ли было менять исходные данные, но по-идее суть от этого мало меняется, а код упрощается... а на VBA как это сделать? Последний раз редактировалось nastyavvolf; 10.07.2009 в 21:37.

11.07.2009, 01:38	#13
nastyavvolf Пользователь Регистрация: 10.07.2009 Сообщений: 13	IgorGO Огромнейшее Вам спасибо, респект и уважуха =) осталось только разобрать код по слогам... Последний раз редактировалось nastyavvolf; 11.07.2009 в 01:42.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите с решением задачи	Ainur	Помощь студентам	6	23.05.2009 11:42
Помогите с решением задачи.	Ainur	Помощь студентам	4	23.05.2009 11:26
Помогите с решением задачи!	Anuta	Общие вопросы Delphi	4	26.06.2008 20:26

11.07.2009, 01:55	#15
nastyavvolf Пользователь Регистрация: 10.07.2009 Сообщений: 13	pivas у Вас не хватает по 1 дню в каждом месяце =(

11.07.2009, 01:56	#16
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Это смотря как считать

11.07.2009, 02:03	#17
nastyavvolf Пользователь Регистрация: 10.07.2009 Сообщений: 13	ну в декабре и январе то точно 31 день... а с благодаря Вашей наблюдательности вижу, что в моей формуле действительно м/у 30,10 и 31,10 2 дня =(((

11.07.2009, 02:13	#18
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Функция ДНЕЙ360 работает из расёта 360 дней в году 30 дней в месяце, т.е. серьёзно усредняет. А в моём варианте возможно пропадают дни при переходе месяца. Надо подумать. Если так, то к сумме дней надо прибавить кол-во переходов месяца.

11.07.2009, 02:25	#19
nastyavvolf Пользователь Регистрация: 10.07.2009 Сообщений: 13	а возможно прописать количество дней в каждом месяце? вот только проблема с високосным годом... хотя его в данной задаче нет, но все же..

11.07.2009, 02:34	#20
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Для этого есть календарь ))