紧急求助：strtodate转换后的格式以及日期之间的运算问题。

Question

我想用edit控件通过strtodate函数来得到日期值，然后与当前日期相运算，比如想得出跟当前日期相差的天数。但是就不懂怎么使用，特别是转换后的格式。
麻烦各位帮我写段代码做示范吧！谢谢！

Answer 1

uses DateUtils;function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

Answer 2

http://search.csdn.net/Expert/topic/1893/1893623.xml?temp=3.178042E-02

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  date1,date2,date3:TDate;
begin
  date1:=StrToDate(Edit1.Text);  //将Edit1的内容变为日期
  date2:=StrToDate(Edit2.Text);  //将Edit2的内容变为日期
  date3:=date1-date2;            //日期与日期计算
  Edit3.Text:=formatdatetime('d',date3);//输出结果
end;该注意的是,date1应比date2大,否则出错

Answer 4

计算两日期相差天数有个daysbeteween吧

Answer 5

那麻烦各位告诉我一下delphi默认的日期格式是什么？

Answer 6

delphi默认的日期格式是个数字

Answer 7

我用了datebetween函数，但是发现很奇怪的现象，代码为Edit3.Text:=IntToStr(DaysBetween(StrToDate(Edit1.Text),now());的时候我输入“2004-8-24"和"2004-8-25"得出的值都是0，而且25号以后的值都会比正确的少1。
到底是怎么回事呢？