Отсортировать по дате

← →
Bogdan (2005-02-19 22:34) [0]

Нужно отсортировать по дате за последние м1 месяцев. Для этого есть TEdit и TUpDown.
вот как не получается:
with Datamodule1.Query5 do
begin
close;
m1:=form14.Edit1.Text;
Dat1:="00/m1/00";
Params[0].AsDateTime:=DateTime-StrToDate(Dat1);
Params[1].AsDateTime:=DateTime;
open;
end;

Query5 записано так
select distinct*
from tab1
where Date>= :pd1 and Date<= :pd2

← →
sniknik © (2005-02-19 23:04) [1]

вот именно так и написано?
а как связаны переменная m1 и кусок из текста ("00/m1/00") который идет в Dat1? то что ини должны быть связаны угадывается, но вот как? ;о))

еще интерестно что значит "за последние м1 месяцев"? что в м1?
это типа число месяцев за которые нужны данные?
тогда
with Datamodule1.Query5 do begin close; sql.text:= "select distinct * from tab1 "+ "where tab1."Date" between :pd1 and :pd2"; Params[0].AsDateTime:= StartOfTheMonth(IncMonth(DateTime, -м1)); Params[1].AsDateTime:= DateTime; open; end;

← →
Anatoly Podgoretsky © (2005-02-19 23:15) [2]

отсортировать по дате за последние м1 месяцев это как? С большим трудом представляю подобное для баз.

← →
Bogdan (2005-02-19 23:21) [3]

>sniknik © (19.02.05 23:04) [1]

Спасибо, вот это и надобно.
Еще вопрос, а если вместо месяцев дни то как?

← →
sniknik © (2005-02-19 23:32) [4]

> а если вместо месяцев дни то как?
аналогично, даже проше.

> С большим трудом представляю подобное для баз.
аналогично, но может телепатор развился? ;о)))

← →
Bogdan (2005-02-20 00:01) [5]

>sniknik © (19.02.05 23:32) [4]

Опять 25,выдает ошибку, Undeclared identifier StartOfTheMonth;o)))

← →
MORA (2005-02-20 01:40) [6]

Date + F1

Bogdan (20.02.05 00:01) [5]
если установить курсор на неизвестную тебе функцию и нажать ctrl+f1 то попадеш в контекстную справку... там обычно написано в каком модуле она орисана.
(в блокноте это естественно не работает... ;о))))

Отсортировать по дате Найти похожие ветки