Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Подсчет светлого времени суток в зависимости от режима дня.
 
Здравствуйте!

Решил написать в Excel небольшую программку (на vba), которая бы подсчитывала, сколько мы имеем светлого времени в зависимости от нашего режима дня. Сам был удивлен результатами: оказывается, в самое активное и полезное для человека время - после работы вечером у нас гораздо больше (и намного) темных часов, чем светлых. Треть жизни мы спим, треть жизни (в рабочие дни, а их большинство в году) мы работаем. 4 часа из оставшихся 8 часов мы тратим на сборы на работу, дорогу и обеденный перерыв. И только примерно 4 часа в рабочий день у нас имеется для досуга: занятий домашними делами, спортом, прогулками с детьми, работой на приусадебном участке и т. п.  И от системы исчисления времени очень сильно зависит, при свете мы будем их проводить или в темноте. Продолжительность светового дня очень сильно различается в зависимости от времени года. И самое оптимальное использование светлого времени получается при опережении минимум на час-полтора административного времени над астрономическим (астрономический полдень, это когда тень от палки, воткнутой в землю, максимальна в 12:00). Если кому интересна эта тема, файл во вложении, из-за размеров выложил на ЯндексДиске Никаких сложных решений там нет, обычные арифметические действия со временем: " + - / * ".
Изменено: aequit - 20.05.2020 00:48:51
Парсер котировок цен, Вариант простейшего парсера на vba
 
Добрый вечер! Баловался с попыткой вытащить котировки цен на золото в реальном времени, может кому будет интересен результат. Автоматический запрос делать не стал, запускается кнопкой, так как практической ценности не имеет, просто делал для тренировки. Также не стал включать в результаты алюминий и всякие другие вещи, типа урана. На сайте данные обновляются каждые несколько минут.
Работает через Internet Explorer, так что его наличие обязательно в системе. Иногда "задумывается" секунд на 15 при открытии страницы.
Скрытый текст
Изменено: aequit - 04.03.2020 10:55:32 (Немного исправил неверное определение цвета текста в зависимости от "+" или "-".)
Функция ближайший рабочий день на VBA
 
Здравствуйте!
Разбирался с функцией РАБДЕНЬ, возникла необходимость написания данной функции на чистом VBA без использования дополнительных формул и диапазонов на рабочих листах книги. Выкладываю свой вариант для закидывания тапками, может кому пригодится. Можно разместить в личной книге макросов или надстройке. В конце года после выхода постановления Правительства РФ необходимо добавлять в код данные по праздничным и выходным дням, а также по рабочим субботам (внесены данные с 01.01.2015 по текущий год).
Скрытый текст
Изменено: aequit - 17.01.2020 11:13:53
Страницы: 1
Наверх