Фильтрация по динамич.перемен.

[Elm0]

Дана таблица в которой есть поля отображ-е время(точнее год)
Пример:Текущий год, прошедший, год завершения.
Нужно фильтровать по вышеуказанным данным.То есть нужно получить текущую дату сравнить ее с той которую надо отбирать..

Очень признателен за помощь!!!Да хранит Вас Господь!!!

[mihali4]

Вы не могли бы членораздельно выразить свою мысль?

Дана таблица в которой есть поля отображ-е время(точнее год)

У вас год запоминается в поле какого типа? Time? Date? Char? Varchar?

Пример:Текущий год, прошедший, год завершения.

У вас в таблице запоминаются текущий и прошедший год???
Бред какой-то...

нужно получить текущую дату сравнить ее с той которую надо отбирать..

При чем тут дата, когда у вас запоминается только год?
Текущая дата в Дельфи определяется просто - Now... или Date...
Разберитесь в своих мыслях и задайте корректный вопрос, ибо ваша формулировка предполагает длительное гадание...

[Cyn4uk]

Мой способ получения текущей даты:

var mm:tsystemtime; nn:tdate;

datetimetosystemtime(now,mm);
nn:=encodedate(mm.wYear,mm.wMonth,mm.wDay);
//dtp - DateTimePicker
dtp.Date:=nn;

Если нужно сравнить год, обращаемся к wYear и далее делаем что нам нужно.

[Elm0]

mihali4, извините пожалуйста, виноват, просто очень спешил=)

Попробуем так, в таблице есть колонка типа String, которая хранит дату(в чч.мм.гггг формате)(только не смейтесь над типом!!!=)).
Нужно, путем сравнения с текущей датой, отфильтровать данные в таблице таким образом- "в этот год","прошедшие года","след.год" тобишь -
case CurrentDate of
TableDate(Даты из таблицы)=CurrentDate:Фильтр
И т.д.....

Спасибо!!!

[mihali4]

Смешного ничего нет - значит, вам так удобнее.
Пусть ваше поле с датой зовут Event_Date.
Тогда:

var d,m,y: Word;
begin
DecodeDate(Now,y,m,d);
//фильтруем за текущий год
Table1.Filter:='Event_Date>=01.01.'+IntToStr(y)+' and Event_Date<=31.12.'+IntToStr(y);
//фильтруем за предыдущие года
Table1.Filter:='Event_Date<01.01.'+IntToStr(y);
//фильтруем за последующие года
Table1.Filter:='Event_Date>31.12.'+IntToStr(y);

Все это - в предположении, что под "текущей датой" вы имеете в виду именно ее, т.е. сегодняшнюю дату. Ибо мало ли что...

[Elm0]

Спасибо большое, именно то, что нужно!

[Elm0]

Попробовал Ваш способ...Но данные фильтруются неправильно=(в системе формат даты зарегестрирован, как чч.мм.гггг....

Возник такой вопрос по коду. DecodeDate возвращает данные в формате чч.мм.гггг, но типа стринг (или я не прав?)По идее мне совершенно не нужны число и месяц. Нельзя ли вести сравнение только по году?

[mihali4]

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

Попробовал Ваш способ...Но данные фильтруются неправильно=(в системе формат даты зарегестрирован, как чч.мм.гггг....

Возник такой вопрос по коду. DecodeDate возвращает данные в формате чч.мм.гггг, но типа стринг (или я не прав?)По идее мне совершенно не нужны число и месяц. Нельзя ли вести сравнение только по году?

Так...

в таблице есть колонка типа String, которая хранит дату(в чч.мм.гггг формате)

Ваши слова? Так я вам и предложил сравнивать две стринговые переменные... В одном и том же формате, между прочим...

DecodeDate возвращает данные в формате чч.мм.гггг

DecodeDate возвращает три ЧИСЛА типа WORD. Посмотрите внимательнее:
var d,m,y: Word;
Из них я использую только значение года - Y.
Что там может неправильно фильтроваться???

[Elm0]

Извинте Михалыч Очень не внимателен...отсюда вся беда...

Спасибо за помощь!!!

[Pitbull]

как вариант ,можно запросом делать. Фильтрі медленнее работают, на сколько я знаю....

Данній запрос відаст все данніе, которіе находятся в заданном диапазоне...

DataModule1.ReportQuery .Active :=False;
DataModule1.ReportQuery.SQL.Clear;
DataModule1.ReportQuery.SQL.add('se lect *');
DataModule1.ReportQuery.sql.add('fr om таблица');
DataModule1.ReportQuery.SQL.Add('wh ere Поле_даті BETWEEN t and tt;');
dataModule1.ReportQuery.Params[0].Value := 'yyyy.mm.dd'; // тут можешь использовать FormatDateTime
dataModule1.ReportQuery.Params[1].Value :='yyyy.mm.dd';
DataModule1.ReportQuery.ExecSQl ;

Задаешь диапазоні с 1.01.пердидущего по 31.12.предидущего..... все также для нінещнего и будущего...