anatoly_neo, Здравствуйте! Вытащить данные из Excel можно следующим образом :
Код:

excel : Variant; // Объявляем переменную
...............
excel := CreateOleObject('Excel.Application');
excel.Workbooks.Open("excelfile.xls"); //Открываем файл excel
RowsCount := excel.ActiveSheet.UsedRange.Rows.Count; //Получаем количество использованных строк*
for i := 0 to RowsCount
begin
// выполняем операции со строками**
end
excel.ActiveWorkbook.Close;//закрываем файл excel
excel.Application.Quit;//"закрываем" excel приложение
* - Строки могут быть пустыми, но если они отформатированы, то будут считаться использованными, по вашему примеру их будет 18!
** - Обращаться к ячейкам так :
Код:

excel.Cells[i,j].Value
где i - строка, j - столбец
Цитата anatoly_neo:
хотелось бы сразу добавить небольшое усложнение задачи »
|
Сначала тащите из excel ячейку с датой, выполняйте все операции необходимые для проверки, проверяйте, и если true выводите!
P.S.
не забыть добавить
Код:

uses ComObj