请教 如何计算两个日期之间相差多少天！！！

Question

RT ! 谢谢！

Answer 1

uses DateUtils;var
  T0,T1: TDateTime;
begin
  T0 := StrToDateTime('2010-05-27');
  T1 := StrToDateTime('2010-06-27');
  ShowMessage(IntToStr(DaysBetween(T0,T1)));//相差 31 天
end;

Answer 2

var
  T0,T1: TDateTime;
begin
  T0 := StrToDateTime('2010-05-27');
  T1 := StrToDateTime('2010-06-27');
  ShowMessage(Format('%d', [Abs(Trunc(T0 - T1))]));

Answer 3

inttostr(trunc(StrToDate('2010-05-01')-StrToDate('2010-06-01')))

Answer 4

uses DateUtils;var
  T0,T1: TDateTime;
begin
  T0 := StrToDateTime('2010-05-27');
  T1 := StrToDateTime('2010-06-27');
  ShowMessage(IntToStr(DaysBetween(T0,T1)));//相差 31 天
end;

Answer 5

TDateTime其实是个浮点数，可以直接相减，整数部分就是相差的天数

Answer 6

有两个函数 EncodeDatetime,DecodeDatetime,也可以参考一下

Answer 7

SQL里不也是直接减最方便了吗，你要是拿DELPHI里试试不就不用提问了
语言不同方法一样

Answer 8

自带的DaysBetween函数就挺好用的。