Управления задвижкой не будет. Эта схема будет для фиксирования времени открытия/закрытия.
К примеру: мне не мешало бы для большей информативности определять продолжительность операции (проще говоря, разность между включением и отключением). Примерно так:
If ReadValue('Пуск')=1 then T1:=Now;
If ReadValue('Пуск')=0 then T2:=Now;
WriteValue('Время операции','Продолжительность'+ 'RealToTime(TimeToReal(T2)-TimeToReal(T1))');
Но…увы. Возможно в СимпЛайте сделать нечто подобное?
P.S. Версия Ent. Сейчас будем обновляться до безлимитной.
var
t1, t2: TDateTime;
res: string;
begin
If ReadValue('Пуск') = 1 then
t1 := Now;
If ReadValue('Пуск') = 0 then
t2 := Now;
// результат, строка вида 00:01:30
res := TimeToStr(t2 - t1);
end.
А если:
t1 = 07.12.2015 23:55:00
t2 = 08.12.2015 00:15:00
var
t1, t2: TDateTime;
res: string;
d: word;
const
FORMATSTR = '%d д. %s';
begin
t1 := StrToDateTime('07.12.2015 23:55:00');
t2 := StrToDateTime('08.12.2015 00:15:00');
d := trunc(t2) - trunc(t1);
res := format(FORMATSTR, [d, timetostr(t2 - t1)]);
end.
Задвижка будет управлять, или необходима только запись. Из описания не совсем понял.