[chainik]

вот 2 варианта функции которая возвращает номер смены по дате/времени
Зачем нужен второй (и первый) таймер-не понял...

Код:

function GetSmena(Dt:TDateTime):integer;
begin
Dt:=TimeOf(Dt)*24;
if (Dt>=7) and (Dt < 15) then Result:=2
else if (Dt>=15) and (Dt <22) then Result:=3
else Result:=1;
end;

function GetSmena(Dt:TDateTime):integer;
begin
Dt:=TimeOf(Dt)*24;
if (Dt >=0) then Result:=1;
if (Dt>=7) then Result:=2;
if (Dt>=15) then Result:=3;
if (Dt>=22) then Result:=1;
end;