Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VBA, Алг.]Сколько часов простаивало оборудование? VBA Excel 
:(
    Опции темы
klen1
Дата 29.5.2007, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет
    Оборудование,     Начало простоя,     Конец простоя,     Простой оборудования
  • Станок токарн.,   25.05.2007 16:00,   26.05.2007 09:00,    1 ч + 1 ч = 02:00
  • Фрезерный ст.,    26.05.2007 11:00,   27.05.2007 11:00,    5 ч + 3 ч = 08:00
  • штамп,                 25.05.2007 08:00,   30.05.2007 09:00,  40 ч + 1 ч = 41:00
Рабочий день заканчивается в 17:00, а начинается в 08:00, обед с 12:00 до 13:00
Таких записей в Excel будет сотни
Код

Public Function Макрос1(DataN As Range, DataK As Range)
    Макрос1 = DateDiff("d", CDate(DataN.Value), CDate(DataK.Value))
End Function

=Макрос1 я вписал в колонку <Простой оборудования>

Я прошу подсказать алгоритм.
В дальнейшем я буду учитывать календарь выходных дней, праздников
PM   Вверх
klen1
Дата 31.5.2007, 06:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 16.3.2006
Где: г. Ликино-Дулёво

Репутация: нет
Всего: нет
up
PM   Вверх
Genyaa
Дата 31.5.2007, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Усердный
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 5
Всего: 11
Если развитие задачи видится именно в усложнении условий подсчета (графики рабочих дней, профилактического обслуживания и ремонта, обеденные и другие перерывы и другие планируемые мероприятия, время которых не должно включаться в суммирование времени простоя), то самое простое и надежное, как мне кажется, это просмотреть весь учитываемый период с определенным шагом (например в 1 мин или с шагом максимальной точности расчетов) и каждый момент времени следующего шага проверять на все условия по графикам. Если на очередном шаге ни один график не создает условия "не работаем по плану, нет простоя", то этот шаг добавляем в сумму времени простоя. Перебор всех значений (если все будет организовано в переменных массивов) и условий займет доли секунды и, как я думаю, не существенно замедлит расчет... конечно, если количество обсчитываемых станков не тысячи...

Если же метод перебора не покажется Вам достойным, то Вам ничего не мешает в отдельной таблице (или массиве) составить объединенный график всех графиков, организовать вычисление предельных точек (моменты времени, начиная с которых нужно "считать простоем" или "не считать простоем") и решить подобную задачу, описанной мной выше, но только с переменным шагом, равным значенимя предельных точек.

Удачи.
--------------------
Всякое решение плодит новые проблемы.
PM WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0731 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.