Только со смены, туплю..ser_davkin, ну я предполагал что на нашем предприятии смены не будут больше суток)

А Ваша схема в процессе теста пару раз вылетала почему-то (Access violation) (( я еще попроверяю

Tad, вроде работает (долго не смог потестить, сегодня еще раз проверю).

Леонид, все работает

тренировки ради вариант на vbs (т.к функционала движка для работы с датами предостаточно) code_34443.txt

Поменяй независимый таймер на обычный, это всё из-за него. (каждый раз наступаю на одни и те же грабли с этим независимым таймером)

Ну да, смена в лагере — определенный период работы лагеря, в течение которого осуществляется полноценный оздоровительно-образовательный процесс и реализуется весь комплекс педагогических задач.Продолжительность смены от 3-х недель до 3-х месяцев.
У пожарников смена обычно сутки.
Gunnman писал, что печёт булки.

Редактировалось 2 раз(а), последний 2021-05-21 12:11:56

code_34444.txt

Tad, я не пеку...я ем и сеть админю) п.с. изучаю ваш инлайн)
------------ Дoбавленo в 00.55:
Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\HiAsm\Elements\delphi\code\Project50.dpr" "-UC:\HiAsm\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(30) Error: Unterminated string

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(39) Error: ')' expected but 'IMPLEMENTATION' found

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(181) Error: ';' expected but '.' found

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(183) Error: Declaration expected but end of file found

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(10) Hint: Private symbol 'sd' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(11) Hint: Private symbol 'T' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(12) Hint: Private symbol 'fold' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(14) Hint: Private symbol 'SystemTime' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(15) Hint: Private symbol 'DateTime' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(16) Error: Unsatisfied forward or external declaration: 'ThiInlineCode_3CAD6D0.OnTimer'

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(17) Hint: Private symbol 'doWin' declared but never used

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(25) Error: Unsatisfied forward or external declaration: 'ThiInlineCode_3CAD6D0.doClose'

C:\HiAsm\Elements\delphi\code\hiInlineCode_3CAD6D0.pas(26) Error: Unsatisfied forward or external declaration: 'ThiInlineCode_3CAD6D0.doRead'

C:\HiAsm\Elements\delphi\code\hiMainForm_2503590.pas(9) Fatal: Could not compile used unit 'hiInlineCode_3CAD6D0.pas'
Сжатие кода...
Сборка завершена.

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

Gunnman, routine_sha.rar

Бонус, валидность ввода времени code_34447.txt

Ну если умещаемся в сутки, то ещё вариант
code_34448.txt
ЗЫ: график можно менять и через Блокнот, если что, загружая список через StrList... Даже если график миниминутный, типа: тяжело и долго работаем 20 мин. и быстренько отдыхаем 40 мин., и т.д...

foksov, хотел посмотреть, но ... почему-то копируется без линков.
Это только у меня ?

бардак где-то...
вот в архиве, может линки не съедятся
256_256.rar
-------------
проверил code_34448.txt, вроде линки на местах.

Gunnman, потести ночью. Удалил. Увидел ошибку.
nesco, а ведь DatePicker не хватает нижней точки TimeReal

foksov, бывает , но хорошо, что не каждый день.

А кто мешает отнять от DateTime DateInt или получить frac от DateTime