Форум: "Базы";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

Как сделать ледующую фильтрацию.   Найти похожие ветки 

← →
roottim   (2002-03-29 14:36) [27]

а чем "вопросу" непонравилось предложение по OnfilterRecord, предложенное ранее...

var
Year, Month, Day :Word;
Year1, Month1, Day1 :Word;
begin
DecodeDate(Date, Year1, Month1, Day1);
DecodeDate(ds.FieldByName("birthday").asDateTime, Year1, Month1, Day1);
if (Month1 = Month) and (Day1 = Day) then Accept:=True
else Accept:=False;
end;

---

Страницы: 1 2 вся ветка

Форум: "Базы";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c