Макрос расчета восхода/захода солнца

Пользователь

Сообщений: 70 Регистрация: 02.08.2013

03.07.2017 20:40:13

Добрый день!
Долго искал формулы/макрос по расчету времени восхода/рассвета/захода/темноты. И, вот, на просторах интернета нашел архив с, вроде как, рабочим макросом по расчету оных. Но! никак не могу дать ума, как он запускается! пытался связаться с автором, но все пустое!
Помогите пожалийста!
В архиве в папке Функция восхода и захода есть текстовый файл с функцией

Прикрепленные файлы

VB.rar (53.16 КБ)
восход.xlsm (19.42 КБ)

Изменено: viktor595 - 03.07.2017 23:58:03

Jungl

Пользователь

Сообщений: 830 Регистрация: 18.01.2016

03.07.2017 23:41:32

viktor595, я так понял, вам нужно использовать функцию GetSunRiseSet? Тогда обратите внимание на кол-во принимаемых параметров в функции и сколько вы их пытаетесь передать. Их 7, а у вас 5.
Должно быть так(какие значения передавать функции, виднее вам):

Код
=GetSunRiseSet(0,0,0,0,0,0,0)

И константу pi перенесите в самое начало модуля

viktor595 Пользователь Сообщений: 70 Регистрация: 02.08.2013	#3 04.07.2017 11:19:18 Спасибо большое, получил результат, но не тот который надо. как найду функцию рабочую, выложу здесь, чтобы народ найти мог ))

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 04.07.2017 11:30:18 У меня на работе есть малюсенькая программа, которая всё это считает. Но не на VBA.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#5 04.07.2017 11:31:07 Это чтобы конец смены не прозевать? )

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#6 04.07.2017 11:34:59 Неее )) У нас есть ограничения по освещённости для некоторых типов судов.

viktor595 Пользователь Сообщений: 70 Регистрация: 02.08.2013	#7 04.07.2017 11:55:21 программок много разных, но хочу автоматизировать табличку одну, вот и задался этим вопросом

Читают тему