Находжение разницы годов в SQL запросе

[Yurk@]

Здравствуйте! Подскажите пожалуйста.
Задача: Посчитать кол-во записей в БД (Paradox), где все мужчины старше 60 лет.
SQL-запрос такой:
begin

mQ.Close;
mQ.SQL.Clear;
mQ.SQL.Add('SELECT COUNT(*) FROM Base.db WHERE (SEX LIKE "Мужской") AND (...[подсчет разницы в годах между двумя датами]...)');
mQ.Open;

Одна дата берется из базы (поле BIRTHDAY), вторая - текущая дата.
Как мне это реализовать в запросе??? (ну никак не придумаю)

P.S. Наиболее оптимальный вариант с фун-ей YearsBetween!!!
Но нак её в запрос впихнуть ?????

[B_N]

Вот такое есть в Парадоксе?:

.........AND ( (YEAR(NOW()) - YEAR(BIRTHDAY)) > 60 )...........

[mihali4]

Ну, по-моему, самое простое - отсчитать 60 лет от текущей даты, получить результат RESULT и вставить в запрос: '... and birthday<='+IntToStr(result)...'
Зачем пытаться произвести вычисления в SQL-запросе?

[Yurk@]

Сообщение от mihali4

Зачем пытаться произвести вычисления в SQL-запросе?

А как я буду перебирать каждую запись по очереди. Мне же нужно не одну запись провести а перебрать всю базу!
Если несложно - можно примерчик!!!
Спасибо!

[mihali4]

Сообщение от Yurk@

А как я буду перебирать каждую запись по очереди. Мне же нужно не одну запись провести а перебрать всю базу!
Если несложно - можно примерчик!!!
Спасибо!

Какой еще "примерчик"???
Я вам дал готовую фразу для вставки в ваш запрос:

вставить в запрос: '... and birthday<='+DateToStr(result)...'

З.Ы. А-а-а... Понял... Простите... Ну вот:

Result: TDateTime;// глобальная или выходная (если в виде функции оформите)
...

var: y,m,d: integer;
begin
...
DecodeDate(Now,y,m,d);
Result:=EncodeDate(y-60,m,d);
...
end;

[Yurk@]

mihali4, спасибо!
Я уже решил эту проблему немножко другим путем, но с тем же смыслом.

[Pitbull]

в MSSQL есть функции GetDate() - получение текущей даты, month(дата), year(дата).... Вот ими и можно пользоваться...
к дате рождения прибавляешь 60 и сравниваешь с сегодняшней....

[Yurk@]

Кто нить может скинуть пример (желательно для конкретного случая) функции DATEDIFF ???

[Domovoy]

SELECT DATEDIFF(day, '08.01.2008', '08.25.2008') AS diffDay --24

[Yurk@]

Сообщение от Domovoy

SELECT DATEDIFF(day, '08.01.2008', '08.25.2008') AS diffDay --24

Не катит! Пишет: Capability not supported
ЗЫ: Расшифруй строку: AS diffDay --24

Сообщение от mihali4

Зачем пытаться произвести вычисления в SQL-запросе?

Терь такая же проблема, только нужно выбрать всех, у кого дата поступления и выписки меньше 2 дней. Оба поля (тип: DATE) беруться из базы.
Нужно как-то произвести вычисления в самом запросе.

Запрос такого типа:

Q.Close;
Q.SQL.Clear;
Q.SQL.Add('SELECT * FROM Base.db WHERE DATEDIFF(dd, FIELD1, FIELD3) <= "2" ');
Q.Open;

Но он не катит!