счетчик дней без выходных

[Tadjik]

Здравствуйте! к сожалению не шарю в дельфи... прошу помоч с задачкой... дана таблица с наименование и датой ввода в эксплаутацию оборудования. у каждого станка надо проводить какие то регламентные работы после допустим 100 часов работы, в сутки станок работает 5 часов. надо чтобы программа посчитала глядя на текущую дату когда надо будет произвести ТО, подсветив строчку с наименованием красным цветом. и выдав сообщение. если кто может то помогите, хотябы алгоритм решения с кодом как нибуть сам разберуь. искренне надеюсь на вашу помощь.

[artemavd]

А в чем инфа хранится?

[Tadjik]

в таблице, таблица сделана там же в дельфи

[artemavd]

Я так понимаю Вы про StringGrid (черт, че-то сегодня телепатическая антена барахлит у меня под конец рабочей недели)?
Можно увидеть скрин таблицы?

[Serge_Bliznykov]

1) по хорошему эта задача решается с использованием вычислений дня недели (подозреваю, что субботу и воскресение станок простаивает) + подключение справочника, в котором забиты даты-исключения - выходные и праздничные дни и дни, на которые осуществлён перенос праздничных (например, рабочие субботы)

2) вычислить требуемую дату можно разными способами. Можно написать длинную и сложную формулу (я, например, с ходу не готов её состряпать).
Но, проще поступать так - просто считать дни, пропуская праздники:

// Берём исходную дату. 
ДатаРегламента := ТекущаяДата;
СуточнНаработка := 5;
Число_наработки_перед_регламентов := 100;
В цикле, пока Число_наработки_перед_регламентов > 0 делать
   Число_наработки_перед_регламентов := Число_наработки_перед_регламентов - СуточнНаработка;
   // Увеличиваем дату ДатаРегламента на один день (и продолжаем увеличивать,
   //    пока выпал праздничный./выходной день)
   repeat
      ДатаРегламента := ДатаРегламента + 1;
   until is_workday(ДатаРегламента);
конец цикла;
ShowMessage('Дата следующего регламента '+DateToStr(ДатаРегламента);

From artemavd: Сергей, Вы 1С программистом работаете? =)

[Tadjik]

Сообщение от artemavd

Я так понимаю Вы про StringGrid (черт, че-то сегодня телепатическая антена барахлит у меня под конец рабочей недели)?
Можно увидеть скрин таблицы?

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

[Stilet]

Хм... Я бы это писал не в Делфи а в SQL запросе
что-то типа

(Days(Now()-[датa ввода в эксплаутацию]) / 5) /100

Даст кол-во регламентных работ, который станок должен схавать начиная с даты эксплуатации. Просто стоит запоминать их кол-во и сравнивать с рассчитанным. Если рассчитанное больше чем запомненное - пора их проводить.

Примерная идея ясна?

[Tadjik]

Сообщение от Serge_Bliznykov

2) вычислить требуемую дату можно разными способами. Можно написать длинную и сложную формулу (я, например, с ходу не готов её состряпать).
Но, проще поступать так - просто считать дни, пропуская праздники:

// Берём исходную дату. 
ДатаРегламента := ТекущаяДата;
СуточнНаработка := 5;
Число_наработки_перед_регламентов := 100;
В цикле, пока Число_наработки_перед_регламентов > 0 делать
   Число_наработки_перед_регламентов := Число_наработки_перед_регламентов - СуточнНаработка;
   // Увеличиваем дату ДатаРегламента на один день (и продолжаем увеличивать,
   //    пока выпал праздничный./выходной день)
   repeat
      ДатаРегламента := ДатаРегламента + 1;
   until is_workday(ДатаРегламента);
конец цикла;
ShowMessage('Дата следующего регламента '+DateToStr(ДатаРегламента);

прочитал, это чуток не то что нужно надо чтобы она чуток заранее кричала что скоро надо провести обслуживание, оборудования колосальное количество. требуется небольшая подготовка перед тем как провести ТО.

[Tadjik]

Сообщение от Stilet

Хм... Я бы это писал не в Делфи а в SQL запросе
что-то типа

(Days(Now()-[датa ввода в эксплаутацию]) / 5) /100

Даст кол-во регламентных работ, который станок должен схавать начиная с даты эксплуатации. Просто стоит запоминать их кол-во и сравнивать с рассчитанным. Если рассчитанное больше чем запомненное - пора их проводить.

Примерная идея ясна?

идея ясна, но я как то ниразу не сталкивался с SQL, шарю тока в паскале, дальше забил на учебу... вот ща вернулся с армии нашел работу программиста, сразу озадачили, типа теста на профпригодность, вот разбираюсь в авральном режиме.
P.S. если не составит труда обьясни пожалуйста на пальцах как мона это все реализовать

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

[Прик]

И вопросы остались те же.
В чем помочь? Т.е. в какой среде (на каком языке) надо сделать?
Подсказка по существу. В дельфи (если речь о дельфи) есть закладка ADO (dbGO в младших версиях), где расположены компоненты, через которые можно получить доступ к таблицам Access.
А алгоритм Serge_Bliznykov расписал. Его слегка подправить, чтобы "кричал заранее". Для программиста, который "шарит" в паскале это не составит труда.