Здравствуйте.
Ситуация: есть база данных людей. Одно из полей - дата рождения. TDate.
Задача: надо выбрать тех, у кого сегодня день рождения (а еще лучше - тех, у кого день рождения попал в интервал +-3 дня от сегодняшней даты).
Проблема: грубо говоря, дата хранится в виде "сколько дней прошло от 30 декабря 1899". то есть найти тех, кто родился _сегодня_ - не проблема. А тех, кто родился в этот день n лет назад - не знаю как
Можно, конечно, сделать перебор по годам... но что-то меня такой вариант не радует.
Подскажете что-нибудь?
---
Нашла DecodeDate
Уже лучше, но не идеальный вариант (воспользоваться фильтром не получится). Так что вопрос актуален.
if Abs(DaysBetween(IncYear(Today(), - { число лет назад }), { очередная дата })) <= 3 then ...?
Опять же - полный перебор
1) по записям
2) по годам
А так хотелось бы просто написать
Filter:='DateOfBirth.Day="+IntToStr(Now.Day)
Можно пойти гораздо более простым путем:
if DayOfTheYear({дата}) = DayOfTheYear(Today()) then ..., но будет проблема с високосными годами... Хотя и это решаемо...
Это, похоже, то что нужно.
Спасибо большое!
а с високосными... там получается с марта (точнее, как раз с 29 февраля) "сползание" номера на 1... будет дополнительное условие...
if (сейчас должна проводиться нужная фильтрация) then beign
// нужный код
Accept := (условие для отображения = true)
end;
я так пока просто не умею
буду пробовать.
как применить SetRange - не придумала. В этом-то и проблема.
Если бы нужны были люди, родившиеся, например, с 1.09.1988 по 10.09.1988 - без проблем. А как задать, что интересует ЛЮБОЙ год?...
Юля, еще один вариант - использовать SQL-Query... Только что создал маленькую табличку в Access-е, заполнил ее поле DateOfBirth разными датами, и связал TADOQuery с TDBGrid-ом... А заполняется Query вот так:
procedure TForm1.Button1Click(Sender: TObject);(в Edit1 - задаваемый тобой интервал, количество дней +/- от сегодняшнего числа)...
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;