Extrack DOB between 2 Dates
Posted on 2004-03-27
I get my customers next birthday and enter it into a database (Paradox), the reason I don't ask the date of birth is because sometimes the refuse to give it, so.
I extract the customers birthday as follows:
procedure TForm1.Button1Click(Sender: TObject);
fD, fM, fY : Word;
Ftoday := (Now + 1);
DecodeDate(FToday, FY , FM, FD);
QueryDOB.SQL.Add('SELECT DOB, Customer, Fax, FirstName FROM Customer.DB WHERE (EXTRACT(MONTH FROM DOB) ='+(IntToStr(FM))+') and (EXTRACT(Day FROM DOB) ='+(IntToStr(FD))+')');
This is only good if I want to send a card to arrive in the morning.
Is what I would like to do is run the program to get me the Birthdays of customers for say the next month.
I would run the program year after year and would still like to get the birthdays even though I have entered the birthday as say 27/03/2004
What do I need to ajust.