兩個日期值怎麼相減？比如“2002-8-28”－“2002-8-20”＝8......

Question

var
  I: Integer;
begin
  I := StrToDate('2002-8-28') - StrToDate('2002-8-20');
  ShowMessage(IntToStr(I));
end;

Answer 1

两个日期直接相减，得到是天数！要想得到年月，你可以通过计算或借助于SQL语句

Answer 2

var i:integer;
begin
  i:=Trunc(StrToDate('2002-8-28'))-Trunc(StrToDate('2002-8-20'));
  ShowMessage(IntToStr(i));
end;

Answer 3

系統提示'2002-8-28'是無效的date

Answer 4

var
  I: Integer;
begin
  I := Trunc(StrToDate('2002-8-28') - StrToDate('2002-8-20'));
  ShowMessage(IntToStr(I));end;呵呵，东北人补充了:-)

Answer 5

renzhm(戴爾飛)：
两个日期直接相减到底怎樣才得到天数？能講講嗎？

Answer 6

不用转换函数的，Delphi里就有直接的操作函数，具体我不记得了，查一下日期和时间的帮组主题就知道的。

Answer 7

coolslob()謝謝你，我通過DateTimePicker選擇日期後用你的方法可以算出來了。分就全部給你，謝謝！！！！