在Delphi中如何能做到将两个日期相减后得到天数呢？

Question

Date1,Date2 :TDateTime;
Dt:integer;
begin
   Date1:=strtoDate('2000-3-2'); 
   Date2:=strtoDate('2000-4-1');
   Dt:=Trunc(Date2-Date1);end;

Answer 1

如：var
    dtFrom,dtTo:TDateTIme;
    ts_from,ts_to:TTimeStamp;
    nDays:integer;
vegin
    dtFrom:=strtodatetime('2001-08-15 01:00');
    dtTo:=strtodatetime('2001-08-17 01:00');    ts_from:=datetimetotimestamp(dtfrom);
    ts_to:=datetimetotimestamp(dtTo);    nDays:=ts_to.Date-ts_from.Date;     //nDays 就是了end;我自己是这样用的，给分！！！！！！！！！！！！

Answer 2

不是呀，得出的还是datetime形式呀，转换为字符型之后形式如'1899-12-30 12:05:05'

Answer 3

Unit
DateUtilsfunction DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 4

var
  s1,s2:tdatetime;
  dayc:int;
begin
  s1:=strtodatetime(日期1);
  s2:=strtodatetime(日期2);
  dayc:=trunc(s1-s2);
end;

Answer 5

即两个datetime相减,得出准确的时间差，精确到分

Answer 6

decodetime(time:tdatetime;var hour,min,sec,msec:word);
  把时间值分解成时、分、秒、毫秒，够精确了吧
  计算的问题就简单了吧

Answer 7

哦这么写
  IntToStr(Trunc(Date1-Date2))+'天'+
    FormatDatetime('H"小时"M"分"S"秒"Z"毫秒"',Frac(Date1-Date2));

Answer 8

用TSystemTime类型，稍作处理即可得出!