[Al_Sha]

Здравствуйте Уважаемые!
Прошу помощи...
Есть файл Excel (столбцы: № пп,Дата, Время, Событие, Сотрудник, Отдел, Примечание).
Файл содержит сведения системы контроля доступа на предприятие.
Содержание следующее
1 - 13.04.2010 - 08:30 - Вход -Иванов - Планирования -.......
2 - 13.04.2010 - 08:35 - Выход-Иванов - Планирования -.......
3 - 13.04.2010 - 08:37 - Вход - Петров- Заказов - .......
4 - 13.04.2010 - 09:50 - Вход -Иванов - Планирования -.......
.....................
100 - 13.04.2010 - 17:00 - Выход- Иванов -Планирования - .......
101 - 13.04.2010 - 17:37 - Выход - Петров- Заказов - .......
Данные импортированы в StringGrid формы
Необходимо отследить
1. ПЕРВЫЙ вход сотрудника и если время первого входа БОЛЬШЕ 08:30, то в поле (Примечание) указать (Опоздал на работу).
Т.е. для записи 3 для Петрова указать (Опоздал на работу)
2. ПОСЛЕДНИЙ выход сотрудника с предприятия, и если времы последнего выхода МЕНЬШЕ 17:30,то в поле (Примечание) указать (Ушел раньше с работы).
Т.е. для записи 100 для Иванова указать (Ушел раньше с работы)

Заранее благодарен
Alex

[Zombi_sib]

Присылай код NO2009_@mail.ruесли есть подправлю, если надо написать пиши ну для тестирвоания нужен данный список чтоб его не выдумывать

[Mad programmer]

Alex это все в Excel можно настроить.

[Black Raider]

Вот так попробуйте.
вроде должно сработать.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (strtoTime(stringgrid1.Cells[3,Arow])>strtotime('00:08:31'))and (stringgrid1.Cells[4,Arow]='Вход')  then StringGrid1.Cells[7,Arow]:='Опоздал';
 if (strtoTime(stringgrid1.Cells[3,Arow])<strtotime('00:17:30'))and (stringgrid1.Cells[4,Arow]='Выход')  then StringGrid1.Cells[7,Arow]:='Свалил';
end;

Либо при импорте из Ёкселя проставлять.

Либо после импорта пробежаться по гриду.

[Al_Sha]

Спасибо, но мне надо:
1. ПЕРВЫЙ вход сотрудника и если время первого входа БОЛЬШЕ 08:30, то в поле (Примечание) указать (Опоздал на работу).
Т.е. для записи 3 для Петрова указать (Опоздал на работу)
2. ПОСЛЕДНИЙ выход сотрудника с предприятия, и если времы последнего выхода МЕНЬШЕ 17:30,то в поле (Примечание) указать (Ушел раньше с работы).

Входов и выходов сотрудника может быть НЕСКОЛЬКО...