| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отсортировать по дате [D7, Paradox]

Bogdan ©   (2005-02-19 22:34:00) 

Нужно отсортировать по дате за последние м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-20 12:55:00) [1]

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

---

MORA   (2005-02-20 01:40:00) [2]

Date + F1

---

Bogdan   (2005-02-20 00:01:00) [3]

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

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

---

sniknik   (2005-02-19 23:32:00) [4]

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

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

---

Bogdan   (2005-02-19 23:21:00) [5]

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

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

---

Anatoly Podgoretsky   (2005-02-19 23:15:00) [6]

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

---

sniknik   (2005-02-19 23:04:00) [7]

вот именно так и написано?
а как связаны переменная 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;


---

Наверх