TDate, у кого сегодня день рождения?.. Опции

[мисс_граффити]

Здравствуйте.
Ситуация: есть база данных людей. Одно из полей - дата рождения. TDate.
Задача: надо выбрать тех, у кого сегодня день рождения (а еще лучше - тех, у кого день рождения попал в интервал +-3 дня от сегодняшней даты).
Проблема: грубо говоря, дата хранится в виде "сколько дней прошло от 30 декабря 1899". то есть найти тех, кто родился _сегодня_ - не проблема. А тех, кто родился в этот день n лет назад - не знаю как
Можно, конечно, сделать перебор по годам... но что-то меня такой вариант не радует.

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

Сообщение отредактировано: мисс_граффити - 13.09.2007 3:51

[volvo]

Юля, еще один вариант - использовать SQL-Query... Только что создал маленькую табличку в Access-е, заполнил ее поле DateOfBirth разными датами, и связал TADOQuery с TDBGrid-ом... А заполняется Query вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do begin
    with SQL do begin
      Clear;
      Add('SELECT id, DateOfBirth');
      Add('FROM Table1');
      Add('WHERE  (((Abs(DatePart("y",[DateOfBirth])-DatePart("y",Now())))<=' +
        Edit1.Text + '))');
    end;
    Open;
  end;
end;

(в Edit1 - задаваемый тобой интервал, количество дней +/- от сегодняшнего числа)...