Создать программу для напоминания о дате в блокноте.

[Sina]

У меня есть программа, записная книжка(Фио, дата рождения, телефоны, адрес), подскажите как сделать что бы при запуске проги высвечивалось какое нибуть напоминание что у кого то из списка скоро день рождения.

[W0LF]

uses
  DateUtils;

  if DaysBetween(Date, StrToDate('03.04.2010')) <= 3 then
    ShowMessage('Скоро днюха!');
  {Если разница дней между двумя датами (Датой в настоящее
   время и датой 03.04.2010) меньше или ровняеться 3 дням
   тогда показуем сообщение...}

[Sina]

Спасибо огромное)

[psyco]

Тоже искал как сделать подобное, но в конце концов написал вот такое, что тоже хорошо работает:

    var
    BirthDay,BirthMonth:integer;
begin
    ADOQuery1.SQL.Text:='SELECT * FROM Users';
    ADOQuery1.Active:=true;
    for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do
    begin
        BirthDay:=DayOf(DBGrid1.Columns[6].Field.AsDateTime);//поле с датой
        BirthMonth:=MonthOf(DBGrid1.Columns[6].Field.AsDateTime);//-//-
        if (BirthMonth=MonthOf(Date))AND((BirthDay-DayOf(Date)<3)AND(BirthDay-DayOf(Date)>=0)) then
        begin
            case BirthDay-DayOf(Date) of
                0: Day:='сегодня';
                1: Day:='завтра';
                2: Day:='послезавтра';
            end;
            ShowMessage('У ФИО День рождения '+Day);
        end;
        DBGrid1.DataSource.DataSet.Next;
    end;

[FieStik]

можно лянуть на исходник программы?

[Lord_Rufus]

psyco
Скажите ФИО в строке
ShowMessage('У ФИО День рождения '+Day);
это название поля?
как в сообщении вывести имя у которого день рождения?


разобрался,
ShowMessage('У '+sdbgrid1.Columns[2].Field.asstring+' День рождения '+Day); //поле имя

[Elegance3]

Та же задачка и у меня.
Но вот только на цикле и всем что связано с DBGrid выдается ошибка типа EAccessViolation(((( как решить такую проблему?