谢谢!

解决方案 »

  1.   

    var
      Date1,Date2:TDateTime;
      i:real;
    begin
    ...
      Date1:=Now;
      Date2:=StrToDate('2001-11-10');
      i:=Int(Date1-Date2);//i就是2个时间差的天数
      edit1.text:= 'i';//
    end;
      

  2.   

    日期格式设为yyyy-mm-dd ,后由年、月、日的差推算。
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Date1,Date2:TDateTime;
      i:real;
    begin  Date1:=Now;
      Date2:=StrToDate('2001-11-10');
      i:=Int(Date1-Date2);//i就是2个时间差的天数
      edit1.text:=floattostr(i);//
    end;
      

  4.   

    那我在edit1和edit2里输入怎么就不行呢?
    datetostr(edit1.text-edit2.text),给出的不是数字是个日期型的东东
      

  5.   

    uses DateUtils;DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text))
      

  6.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Date1,Date2:TDateTime;
      i:real;
    begin  Date1:=strtodate(edit1.text); //必须是2003-11-10这种
      Date2:=StrToDate(edit2.text); 
      
      i:=Int(Date1-Date2);//i就是2个时间差的天数
      edit1.text:=floattostr(i);//
    end;