About日期计算

Question

function MinusDateByDay(const Date1, Date2: TDateTime): Integer;
var
  sysTime1, sysTime2: TSystemTime;
begin
  DateTimeToSystemTime(Date1, sysTime1);
  DateTimeToSystemTime(Date2, sysTime2);
  Result := sysTime1.wDay - sysTime2.wDay;
end;

Answer 1

那把Extended转为Integer不就可以了嘛！
Days:=Trunc(StrToDate('2001-1-5')-StrToDate('2000-4-29'));

Answer 2

同意上面，或者你要考虑时间可以用Round( StrToDate( .... ));作四舍五入

Answer 3

不可能procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Trunc(StrToDate('2001-1-5')-StrToDate('2000-4-29')));
end;
显示结果为251!!!