[Ildar-tsr]

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

Подскажите пожалуйста как можно реализовать вывод(числом) №смены(1,2 или 3) например в Edit в зависимости от текущего времени.
Если например:
1 смена работает - с 22:00 вечера до 7:00 утра,
2 смена работает - с 7:00 утра до 15:00 дня,
3 смена работает - с 15:00 дня до 22:00 вечера.

Посмотреть чтоб в uses присутствовал модуль SysUtils (он по умолчанию есть, но на всякий случай), и далее

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Time>=StrToTime('22:00:0')) and (Time<StrToTime('7:00:0')) then
    Edit1.Text:= '1';
  if (Time>=StrToTime('7:00:0')) and (Time<StrToTime('15:00:0')) then
    Edit1.Text:= '2';
  if (Time>=StrToTime('15:00:0')) and (Time<StrToTime('22:00:0')) then
    Edit1.Text:= '3';
end;