如果希望在某个时间(例如2008-11-23)后执行一段代码,代码这样写可行?
if date>2008-11-23 then

解决方案 »

  1.   

    用Timer 控件OnTimer事件里面:procedure TForm1.Timer1OnTimer(Sender: TObject);
    begin
      if Now >= '2008-11-13' then
      begin
        ....
        TTimer(Sender).Enabled := False;
      end;
    end;
      

  2.   


    if date>strtodate('2008-11-23') then
      

  3.   


    if date>2008-11-23 then两边数据类型都不一致 怎么行呢? 
      

  4.   


    if date>2008-11-23 then两边数据类型都不一致 怎么行呢? 
      

  5.   

    哈哈,晕了,搞得我都犯了这个错误,还以为是在写sql的代码....应该是:
    procedure TForm1.Timer1OnTimer(Sender: TObject); 
    begin 
      if Now >= StrToDate('2008-11-13') then 
      begin 
        .... 
        TTimer(Sender).Enabled := False; 
      end; 
    end; 2楼的:if date>strtodate('2008-11-23') then 这个,必须是2008-11-24条件才满足,不过也可以将 > 改成 >=,在2008-11-23 00:00:00.001时,就触发.看具体需要了.
      

  6.   

    我不太清楚,使用date函数还需要添加Timer控件?
    注册成系统服务,这样程序在开机前就已经运行了,而且系统注销后进程不死!
    将应用程序弄成这样,会不会出别的问题?