Delphi 如何设置时间提醒？？？？？ 很急的。。。。

Question

比如我在 2008.10.4 号这天 做了A事情，我要在每年的  9.4 号 也久是提前一个月 这天 提醒我再做这件事情就像是提前提醒生日一样 。用什么时间空间，，该怎么实现呢？？？
小弟在这先谢谢各位大哥了

Answer 1

你可以这样，使用timer定时检查当前日期是否为9.4号，如果是则提醒，当然也要加上开机检查当前日期是否为9.4号

Answer 2

var  d:tdatetime;
procedure TForm1.FormCreate(Sender: TObject);
begin
 d:=StrToDateTime('2008-10-4');
 timer1.Enabled:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (DayOfTheMonth(Now)=dayofthemonth(d)) and
     (monthof(now)=monthof(d)) then
    begin
      showmessage('再过一个月就该做XX事了！');
      timer1.Enabled:=false;
    end;
end;

Answer 3

不好意思，打错了
d:=StrToDateTime('2008-9-4'); 

Answer 4

很简单啊,减仍然是用dateadd不过是在操作单位前边加个减号"-"   
    
  减1年:dateadd(yy,-1,'2005-09-02   08:30:00')   
  减1月:dateadd(mm,-1,'2005-09-02   08:30:00')   
  减1天:dateadd(dd,-1,'2005-09-02   08:30:00')   
  减1小时:dateadd(hh,-1,'2005-09-02   08:30:00')   
  减1分钟:dateadd(mi,-1,'2005-09-02   08:30:00')