[Edvix]

Код:

1 2 3 4 5 6 7 8 9 10 11

Type import=record name: string[15]; cena: Real; kraina: string[15]; partia: Real; data: tdatetime; end; var f: file of import; //файл записів z: import; //запис namefile: string; //ім'я файла nbtn2: integer;

MAD: теги!

Есть типизированный файл.(Обьявление выше).Нужно найти товары проданные за ПОСЛЕДНЮЮ неделю.Как это можно реализовать?

[M.A.D.M.A.N.]

Ф-я filter.

[Edvix]

помоги,с реализацией плиз

[lmikle]

Для начала, определи что такое "ПОСЛЕДНЯЯ НЕДЕЛЯ".
последняя неделя года, месяца, текущая, предыдущая (полная), просто последние 7 дней?

[NumLock]

проверяй поле data на попадание в нужный диапазон из 7 дней, т.к. в неделе 7 дней.